Dim retazec As String Dim znak As String Dim dlzka As Integer Dim vysledok As String retazec = "(AA/8000102473/0/5110, EAN 99000005)" ' retazec na spracovanie dlzka = Len(retazec) ' zistenie dlzky ' cyklus v ktorom prechadzame retazec od konca az pokial nenajdeme prvu medzeru For i = dlzka - 1 To 1 Step -1 znak = Mid(retazec, i, 1) ' testovany znak If znak = " " Then vysledok = Mid(retazec, i + 1, dlzka - i) ' extrahovanie cisla do premennej vysledok Exit For End If Next i
Funkcia pre reťazec