Is this what you want?
Code:
Public Function IzvuciBrojeve(strKojiTekst As String) As String
Dim I As Integer
Dim strSlovo As String
Dim bytCode As String
Dim blnUbaciSpace As Boolean
Dim blnUbaciZarez As Boolean
Dim strDecimala As String
blnUbaciZarez = True
For I = 1 To Len(strKojiTekst)
strSlovo = Mid(strKojiTekst, I, 1)
If InStr(1, "0123456789", strSlovo) > 0 Then
IzvuciBrojeve = IzvuciBrojeve & strDecimala & strSlovo
strDecimala = ""
blnUbaciSpace = True
GoTo NextI
End If
If (strSlovo = "," Or strSlovo = ".") And blnUbaciSpace Then
If blnUbaciZarez = False Then GoTo NextI
blnUbaciZarez = False
strDecimala = strSlovo
GoTo NextI
End If
If Asc(strSlovo) = 13 Then
IzvuciBrojeve = IzvuciBrojeve & vbCrLf
blnUbaciSpace = False
GoTo NextI
End If
If blnUbaciSpace Then
blnUbaciZarez = True
strDecimala = ""
IzvuciBrojeve = IzvuciBrojeve & " "
blnUbaciSpace = False
End If
NextI:
Next I
IzvuciBrojeve = RTrim(IzvuciBrojeve)
End Function
Za tekst od jedan kb joj treba oko 6 hiljaditinki, možda sam se malo zaneo, ali eto, radi. Nisam baš morao da vodim računa i o decimalnim zarezima i koji je u okviru broja a koji nije, ali eto za mog druga Zidara da se uradi kako valja
Radi i sa multiline tekstom i razdvaja dva broja koja prepozna sa space...
Primer:
Code:
? IzvuciBrojeve ("Zdravo draga, zovi me na broj .123..45.67 pre podne, a uveče na 1234")
Rezultat:
Code:
123.4567 1234
Ozbiljan i odgovoran mladić
izvlacenje brojeva iz teksta
