Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Schimbare din CIM in SRL sau nu?

Transfer OS NVME

Procedura juridica ... determinar...

Metoda relaxarii simple in Matlab
 Accesarea sheet-ului precedent (d...

Uneori dupa un timp de functionar...

Laptopul HP nu recunoaste reteaua

Pudra pentru spalat dintii
 E posibila vanzarea in conditiile...

OnePlus 11R

Doua amenzi in același timp?

Recomandare limbaj back-end pentr...
 Micsorare volum interfon

Lamuriri Windows Server 2019

Vas Wc suspendat, ce greutate sup...

Facebook mi-au inchis contul!
 

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: 28,813
  • Î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 '[email protected][email protected] '45)

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


Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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