Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
La multi ani @A_Stere!

Rulou textil terasa

Situație ciudata siguran5...

Pagina web pentru verificare tele...
 Conectare multipla de pe acela...

Problema material CM 11

Senzatie arsursa picor

IP-urile care incep cu 45
 New Amsterdam - (Spitalul Bellevue)

Geotextil care sa retina cat mai ...

Port Forwarding Config - Luster T...

Cand se deschid toaletele din Par...
 Essilor Crizal?

Sony A6400 - Video

recomandari structura - sarcina m...

Voi aveți incredere in recen...
 

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: 29,428
  • Î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