Prikazi cijelu temu 14.05.2015 23:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Podelba na string
Evo ti primjer pa tio prepravi sta treba:
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub main()
  2. Dim RedPod As String
  3. Dim BrojVar As Integer
  4. Dim ArrPodaci
  5. Dim Arr() As String
  6. Dim I As Integer
  7.  
  8. RedPod = "+CRLP: 61,61,78,6"
  9. Vrati_Podatak RedPod, BrojVar, ArrPodaci
  10. Arr = Split(ArrPodaci, ",")
  11. For I = 0 To BrojVar
  12. MsgBox Arr(I)
  13. Next I
  14. End Sub
  15.  
  16. Sub Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci)
  17. Dim Poz As Integer, Duzina As Integer, I As Integer
  18. Dim PrviDio As String, DrugiDio As String, Skupa As String
  19. Dim Znak As String
  20. If Left(UlazniPodatak, 1) = "^" Or Left(UlazniPodatak, 1) <> "+" Then GoTo Kraj
  21. Poz = InStr(1, UlazniPodatak, ":", vbBinaryCompare)
  22. If Poz = 0 Then GoTo Kraj
  23. PrviDio = Mid(UlazniPodatak, 2, Poz - 2)
  24. DrugiDio = Mid(UlazniPodatak, Poz + 1)
  25. Skupa = PrviDio & "," & DrugiDio
  26. Duzina = Len(UlazniPodatak) - 1
  27. BrojVar = 0
  28.     For I = 1 To Duzina
  29.     Znak = Mid(Skupa, I, 1)
  30.         If Znak = "," Then
  31.         BrojVar = BrojVar + 1
  32.         End If
  33.     Next I
  34. ArrPodaci = Skupa
  35. Izlaz:
  36. Exit Sub
  37. Kraj:
  38. ArrPodaci = ""
  39. BrojVar = 0
  40. GoTo Izlaz
  41. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.