Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!
 Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda
 Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...
 Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata
 

TextBox to Integer

- - - - -
  • Please log in to reply
2 replies to this topic

#1
dustcp

dustcp

    Junior Member

  • Grup: Members
  • Posts: 84
  • Înscris: 07.10.2010
Salut! Vreau ca dintr-un textbox sa export datele ca integer printr-un buton intr-un excel, in sheet 2 pentru a folosi baza de date in alt program ulterior. Eu am incercat sa fac ceva, problema este ca daca modific datele din textbox. cand deschid fisierul excel respectiv, imi deschide si un "book" precedent, inainte sa fie modificat.
Puteti sa ma ajutati?
Folosesc Visual Basic 6.3.

#2
MarianG

MarianG

    be that as it may

  • Grup: Moderators
  • Posts: 31,383
  • Înscris: 10.08.2005
texbox-ul este precum Notepad.

#3
horohoro

horohoro

    Junior Member

  • Grup: Members
  • Posts: 103
  • Înscris: 11.02.2010
sa inteleg ca vrei sa scapi de caractere si sa ramai doar cu cifre?

vezi poate te ajuta functia asta:

Public Function ConvertesteInNumar(ByVal strNumar As String) As String
  Dim a As Integer
  Dim buf As String
	
  For a = 1 To Len(strNumar)
   If IsNumeric(Mid(strNumar, a, 1)) Then buf = buf & Mid(strNumar, a, 1)
  Next a

  ConvertesteInNumar = CDbl(buf)
End Function

msgbox "TextBox=" & ConvertesteInNumar(Text1.text) & vbcrlf & _
		"String=" & ConvertesteInNumar(plictiseala2viata4ever2167 'z@_@x '45)

Edited by horohoro, 31 May 2012 - 04:47.


Anunturi

Neurochirurgie minim invazivă Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate