Predmet:Re: Podelba na string
Evo ti primjer pa tio prepravi sta treba:
PreuzmiIzvorni kôd (Visual Basic):Sub main()
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer
RedPod = "+CRLP: 61,61,78,6"
Vrati_Podatak RedPod, BrojVar, ArrPodaci
Arr = Split(ArrPodaci, ",")
For I = 0 To BrojVar
MsgBox Arr(I)
Next I
End Sub
Sub Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci)
Dim Poz As Integer, Duzina As Integer, I As Integer
Dim PrviDio As String, DrugiDio As String, Skupa As String
Dim Znak As String
If Left(UlazniPodatak, 1) = "^" Or Left(UlazniPodatak, 1) <> "+" Then GoTo Kraj
Poz = InStr(1, UlazniPodatak, ":", vbBinaryCompare)
If Poz = 0 Then GoTo Kraj
PrviDio = Mid(UlazniPodatak, 2, Poz - 2)
DrugiDio = Mid(UlazniPodatak, Poz + 1)
Skupa = PrviDio & "," & DrugiDio
Duzina = Len(UlazniPodatak) - 1
BrojVar = 0
For I = 1 To Duzina
Znak = Mid(Skupa, I, 1)
If Znak = "," Then
BrojVar = BrojVar + 1
End If
Next I
ArrPodaci = Skupa
Izlaz:
Exit Sub
Kraj:
ArrPodaci = ""
BrojVar = 0
GoTo Izlaz
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.