Predmet:Re: Izdvajanje rijeci i/ili znakova iz recorda - funkcija
Jas se izvinuvam ovaa funkcija DioStr e za secejne na stringot pomegu dva isti karakteri a vo slucajov kaj tebe se dva razlicni .
eve ti druga funkcija koja vadi broj od string ovaa ke ti zavrsi rabota
PreuzmiIzvorni kôd (Visual Basic):Function GetNumbers(Value As String) As String
Dim Index As Long
Dim Final As String
For Index = 1 To Len(Value)
If Mid(Value, Index, 1) Like "[0-9]" Then
Final = Final & Mid(Value, Index, 1)
End If
Next
GetNumbers = Final
End Function
MsgBox GetNumbers("odlièan (5)")