iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet

Gjoreski	14.05.2015 19:28
Predmet:Podelba na string Imam stringovi koi mi dooagaat co paket na seiski port (RS232) site se so razlicna struktura a mene mi trebaat samo nekoi oci od niv. Eve eden del od tie stringovi: +CRLP: 61,61,78,6 +CR: 0 +FCLASS: 0 +CRC: 0 +CMGF: 0 +CNMI: 0,0,0,0,1 +ILRR: 0 +IPR: 0 +CMEE: 0 ^SMGO: 0,1 +CSMS: 0,1,1,1 ^SACM: 0,"000000","000000" +GCAP: +CGSM,+FCLA Zaednicko za site ovie stringovi e sto site pocnuvaat so ^ ili + ,a mene mi treba da go izdvojam prviot del koj pocnuva so nekoj od ovie znaci a sekogas zavrsuva so : (Dve tocki) - Ova so prviov del i ne e taka bitno toa mozam da go sredam no pobitno mi e kako da gi izdvojam podatocite sto se posle dvete tocki do krajot a site se podeleni so zapirka (,) Moze nekoj predlog?

Gjoreski

14.05.2015 19:28

Predmet:Podelba na string

Imam stringovi koi mi dooagaat co paket na seiski port (RS232) site se so razlicna struktura a mene mi trebaat samo nekoi oci od niv.
Eve eden del od tie stringovi:

+CRLP: 61,61,78,6
+CR: 0
+FCLASS: 0
+CRC: 0
+CMGF: 0
+CNMI: 0,0,0,0,1
+ILRR: 0
+IPR: 0
+CMEE: 0
^SMGO: 0,1
+CSMS: 0,1,1,1
^SACM: 0,"000000","000000"
+GCAP: +CGSM,+FCLA

Zaednicko za site ovie stringovi e sto site pocnuvaat so ^ ili + ,a mene mi treba da go izdvojam prviot del koj pocnuva so nekoj od ovie znaci a sekogas zavrsuva so : (Dve tocki)
- Ova so prviov del i ne e taka bitno toa mozam da go sredam no pobitno mi e kako da gi izdvojam podatocite sto se posle dvete tocki do krajot a site se podeleni so zapirka (,)

Moze nekoj predlog?

zxz	14.05.2015 21:36
Predmet:Re: Podelba na string Kako sam te razumio tebi trebaju samo redovi podataka koji pocinju sa ^ ili + a imaju na (dvije tacke) Volio bih vidjeti i druge podatke koji tu izlaze ako ih ima. Neki koji nemaju na pocetku znak ^ili +. Treba dobro vidjeti dali se jos negdje pojavljuje (dvotacka) :

zxz

14.05.2015 21:36

Predmet:Re: Podelba na string

Kako sam te razumio tebi trebaju samo redovi podataka koji pocinju sa ^ ili +
a imaju na (dvije tacke)
Volio bih vidjeti i druge podatke koji tu izlaze ako ih ima.
Neki koji nemaju na pocetku znak ^ili +.
Treba dobro vidjeti dali se jos negdje pojavljuje (dvotacka) :

Gjoreski	14.05.2015 22:02
Predmet:Re: Podelba na string ova se mnogu podatoci ne e vozmozno da gi dobijam site bidejki ima razni verzii na hardverot mene ke mi trebat samo nekoi. potocno sega vo momentov mi se potrebni podatocite posle dvete tocki do krajot na stringot. ova bi bilo dobro da se sostoi od dve funkcii od koi prvata ke odredi kolku podatoci ima stringot a vo vtorata funkcija ke gI iscitame podatocite sto ni trebaat.

Gjoreski

14.05.2015 22:02

Predmet:Re: Podelba na string

ova se mnogu podatoci ne e vozmozno da gi dobijam site bidejki ima razni verzii na hardverot mene ke mi trebat samo nekoi.
potocno sega vo momentov mi se potrebni podatocite posle dvete tocki do krajot na stringot.
ova bi bilo dobro da se sostoi od dve funkcii od koi prvata ke odredi kolku podatoci ima stringot a vo vtorata funkcija ke gI iscitame podatocite sto ni trebaat.

zxz	14.05.2015 22:29
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

zxz

14.05.2015 22:29

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