ATNEL tech-forum

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T19:36:52+01:00

to wyżej napisałem

Statystyki: Napisane przez grzeniu 73 — 3 maja 2020, o 19:36

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T18:53:02+01:00

musisz użyć dodatkowo select case. Pokaże Ci jak to można zrobić tylko musisz wspłópracować.
Zobacz to
[syntax=basic4gl]Dim a,b As String

Dim numbers() As String
Dim zmienna As String

'zmienna do tej zmiennej nadlatyją dane
numbers = Regex.Split("\=",zmienna)
a= numbers(0)
Log(a)
b= numbers(1)
Select a
Case "piec"
EditText1.Text = b
Log(b)
Case "woda"
EditText2.Text = b
Log(b)
Case "pompa"
EditText3.Text = b
Log(b)
Case "siec"
EditText4.Text = b
Log(b)
End Select[/syntax]

Statystyki: Napisane przez tfosik — 3 maja 2020, o 18:53

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T18:49:10+01:00

Przecież w tych przykładach masz to samo co w bascomowym przykładzie. Zrób loga z tego co dostaje twoja aplikacja na b4a. Bo chyba każdy tu o czymś innym pisze.

Statystyki: Napisane przez grzeniu 73 — 3 maja 2020, o 18:49

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T18:27:12+01:00

sory
Cała paczka w kilku stringach przerywane chr(10) i ch(13) , tak mi się wydaje , w bascomowym przykładzie można wyłuskać każdą informację podając słowo
"klucz" która to znajduje się przed lub za nim z dowolną ilością znaków . I o to chodzi .

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 18:27

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T18:08:53+01:00

Jak ty wysyłasz te dane, pojedyńczo? czy chcesz je wysłać w jednym stringu? Bo trochę się już pogubiłem. Jeżeli wysyłasz wszystkie razem w jednym stringu to zrób jak pisałem. Jeżeli wysyłasz pojedyńczo to trzeba nieco innaczej.

Statystyki: Napisane przez tfosik — 3 maja 2020, o 18:08

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T17:59:12+01:00

chyba zbaczamy z kursu , krótko mówią potrzeba prostego rozwiązania , może to nie adekwatne do tego co potrzebuje ale kiedyś coś takiego napisałem w bascom i sprawdza się do dziś , moduł gsm A6 i promini .
[syntax=basic4gl]Odczytbufgsm:
If Ischarwaiting() > 0 Then 'jeżeli z GSM coś... to...
Licz3 = 0
Do
Znak = Inkey()
If Znak = Chr(34) Then 'chr(34) To ""
Punkt(zm4) = Len(comm)
Incr Zm4
End If
Select Case Znak
Case 0 ' pomijam puste znaki
Case 13 ' i
Case 10 ' i
Case Else : Comm = Comm + Chr(znak) ' tekst
End Select
Buf = Ischarwaiting()
Loop Until Buf = 0
End If
Return
'---------------------------------- gsm ------------------------------------
Lcdgsmsel:
L = Punkt(4) - Punkt(3)
L = L - 1
S = Punkt(3) + 2
Lcdat 1 , 1 , Mid(comm , S , L) 'to miejsce to numer telefonu

If Mid(comm , S , L) = "+48*********" Then
L = Punkt(7) - Punkt(6)
L = L - 1
S = Punkt(6) + 2
Lcdat 2 , 1 , Mid(comm , S , L) 'to miejsce to wiadomość sms
End If

Return[/syntax]

Wiem że bascom , że archaizm itp , ale sprawdza się doskonale .

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 17:59

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T16:49:30+01:00

Dobrze, ale pokaż jak to nadlatuje. Dodaj tego loga, skompiluj w trybie debug i pokaż dziennik.

P.S. Nic się nie wysypie. Uformuj stringa (a bardziej ciąg znaków) tak jak Ci pokazałem. Te znaki możesz dodać na końcu stringa a nie w środku i wyślij. Potem odbierz i wyłuskaj dane i zrób z nimi co chcesz.

Statystyki: Napisane przez tfosik — 3 maja 2020, o 16:49

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T16:09:06+01:00

Oczywiście że nie , zmienną podałem żeby była zrozumiała wysyła abc=1 chr(10) i crl(13) def=2 chr(10) i crl(13) itd. Programu nie można zmienić bo urządzenia odbiorcze tak odbierają , a CRLF (chr(10) i crl(13) co prawda to nie to samo ale były dodane żeby nie gubił się odbiornik i wyświetlał jedną linie pod drugą , lepiej to widać na serialowych apkach

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 16:09

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T15:34:29+01:00

Tez tak kiedyś robiłem. Case dodałem jak tych zmiennych zaczyna sie gęsto robić. Dzięki case można wysyłać kilkanaście rożnych zmiennych.
Nie wiem czemu ,ale w ostatnim B4a przy bibliotece dialog w chwili jej uruchomienia okna dialogowego zacząłem dostawać dziwne znaki zamiast normalnego stringa. Dodałem liczenie znakow co wyeliminowało cokolwiek co będzie z błędem. Takie proste crc

Statystyki: Napisane przez grzeniu 73 — 3 maja 2020, o 15:34

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T15:27:06+01:00

Napiszę to już po raz ostatni, Ten przykład nie wysypie mu się nigdy.

W baskomie formujesz stringa do wysłania w następujący sposób (separatorem jest x i przykład dla trzech zmiennych)
xdane1xdane2xdane3x

A w aplikacji tak
[syntax=basic4gl]Dim a,b,c as string
Dim data As String
data = "xdane1xdane2xdane3x" ' tutaj string do obróbki
Dim numbers() As String
numbers = Regex.Split("\x", data)
a=numbers(1)
b=numbers(2)
c=numbers(3)[/syntax]
Stosuję to od lat i jeszcze z 1000 innych użytkowników i nigdy się nie zacięło i wysypało

Statystyki: Napisane przez tfosik — 3 maja 2020, o 15:27

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T15:11:32+01:00

Zrob cos takiego.Wysypuje sie bo czasem nie odbierze jakiegos znaku i leci na lep na szyje wszystko. Tu masz zabezpieczenie ilosci znaków w stringui jesli nie beda sie zgadzać to je zignoruje. Do podzialu stringow mam ":" ale mozesz to sobie zmienic
w Bascom zrób tak [syntax=basic4gl]S_len = ":aaa:" + Str(twoja zmienna) + ":" + Str(twoja zmienna) + ":"
L_len = Len(s_len) + 1
If L_len > 9 Then L_len = L_len + 1
Print L_len ; S_len[/syntax]
w b4a

[syntax=basic4gl]sub ast_NewText( Text As String )
Dim components() As String
'Log(Text)

len=Text.Length

' Log(Text)
components = Regex.Split(":",Text)

len1=components(0)

'Log("len 1- "&len1)
If len1 <> len Then

Log ("error...... ")
Return
End If
Select Case components(1)

Case "aaa"

twoja zmienna pierwsza = components(2)
twoja zmienna drua= components(3)
' i nastepne zmienne lub jesli będziesz mial jedna zmienna to w case tylko jedna odczytujesz
end Select
end sub[/syntax]

Statystyki: Napisane przez grzeniu 73 — 3 maja 2020, o 15:11

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T15:16:48+01:00

Czy coś takiego wysyłasz z bascom-a "piec=40"&CRLF&"woda=30"&CRLF&"pompa=1"&CRLF&"siec=1"&CRLF ?
Z Bascoma powinieneś wysłać taki string zmienna1xzmienna2xzmienna3 jeżeli chcesz wysłać wszystko w jednym ciągu. Separatorem tutaj jest x

Taki zapis ja ty masz powoduje chyba wysyłanie danych pojedyńczo...ale nie jestem pewien.
Dodaj log(zmienna) i skompiluj w trybie debug... napisz co nadlatuje
[syntax=basic4gl]zmienna = "piec=40"&CRLF&"woda=30"&CRLF&"pompa=1"&CRLF&"siec=1"&CRLF
Log(zmienna)
numbers = Regex.Split("\=",zmienna)
aa1 = numbers(0)
bb1 = numbers(1)
cc1 = numbers(2)
dd1 = numbers(3)[/syntax]

Czemu uparłeś się na wyświetlanie danych w ed.tex, czy nie ładniej byłoby zbudować sobie układ z ikonami i wykorzystać labele do wyświetlania wyników..

Statystyki: Napisane przez tfosik — 3 maja 2020, o 14:55

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T14:31:28+01:00

[syntax=basic4gl][syntax=vb][syntax=vbnet][syntax=vb][/syntax][/syntax][/syntax][/syntax][syntax=c]Dim aa1 As String
dim aa1 As String
Dim bb1 As String
Dim cc1 As String
Dim dd1 As String
Dim numbers() As String
Dim zmienna As String

zmienna = "piec=40"&CRLF&"woda=30"&CRLF&"pompa=1"&CRLF&"siec=1"&CRLF
numbers = Regex.Split("\=",zmienna)
aa1 = numbers(0)
bb1 = numbers(1)
cc1 = numbers(2)
dd1 = numbers(3)
EditText1.Text = aa1
EditText2.Text = bb1
EditText3.Text = cc1
EditText4.Text = dd1[/syntax]
składnia oczywiście nie w c , taki string pojawia się przy odbiorze

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 14:31

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T14:01:07+01:00

Użyj trochę innego separatora np x i zrób trochę inaczej
[syntax=basic4gl]Dim a,b,c as string
Dim data As String
data = "xaaaxbbbxcccx"
Dim numbers() As String
numbers = Regex.Split("\x", data)
a=numbers(1)
b=numbers(2)
c=numbers(3)[/syntax]
Nie potrzebujesz żadnej pętli for...Pokaż kod jak to robisz w apce.

Statystyki: Napisane przez tfosik — 3 maja 2020, o 14:01

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T13:42:18+01:00

Rzeczywiście to działa ale nie tak do końca , informacje na editText są wyświetlane ale te przed separatorem a nie za , mniejsza liczba separatorów powoduje wysypanie się apki , chyba do tego jeszcze trzeba użyć true i pętli for-next

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 13:42

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T10:55:42+01:00

Przeanalizuj dokładnie
[syntax=basic4gl]dim a,b,c as string

Dim data As String
data = "aaa.bbb.ccc"
Dim numbers() As String
numbers = Regex.Split("\.", data)
a=numbers(0)
b=numbers(1)
c=numbers(2)[/syntax]

tutaj separatorem jest kropka (.)

Statystyki: Napisane przez tfosik — 3 maja 2020, o 10:55

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T10:34:23+01:00

czy to może być coś takiego ?
[syntax=vb]Dim liczba() As String
Dim text2 As String
liczba=Regex.split("woda", "=")
text2 = liczba(1)
EditText1.Text=text2[/syntax]

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 10:34

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T10:26:37+01:00

grafii1 napisał(a):

dzięki za podpowiedź , przetestuje i dam znać jak wyszło
ps. A jak idzie wiele zmiennych w jednym pakiecie ?

Patrz mój post wyżej, posklejaj dane za pomocą separatora i wyślij. Potem użyj regex i wyłuskaj dane.
Zerknij na to
topic22000.html

Statystyki: Napisane przez tfosik — 3 maja 2020, o 10:26

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T10:29:11+01:00

dzięki za podpowiedź , przetestuje i dam znać jak wyszło
ps. A jak idzie wiele zmiennych w jednym pakiecie ?

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 10:14

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T09:27:42+01:00

Witam
Najlepszy do tych zadań jest właśnie regex. Musisz wysłać tylko stringa w odpowiedniej formie separator string separator string separator itd

1 np. xstring1xstring2xstring3x proponuję to rozwiązanie (indeksowanie od 1)
2 string1xstring2xstring3 ( indeksowanie od 0 )

Separatorem jest x

Statystyki: Napisane przez tfosik — 3 maja 2020, o 09:27

Re: Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T09:25:25+01:00

Może coś w tym stylu
[syntax=vb]Dim liczba as string
liczba=regex.split(twoj_text, "=")
Twoja liczba będzie jako liczba(1)[/syntax]

Wysłane ze srajfona

Statystyki: Napisane przez Harry — 3 maja 2020, o 09:25

Jak wyciągnąć dynamiczną zmienną z string

2020-05-03T09:04:46+01:00

Witam , to mój pierwszy post na tym forum i jestem początkującym w B4A , więc proszę o wyrozumiałość . Jakiś czas temu rozpocząłem przygodę z bascomem i " programowanie " oraz uruchomienie prostych układów nie stwarza mi problemów ale do rzeczy . Pracujący układ sterownika pieca i nie tylko opiera się na dwóch atmegach i modułach RFM12 , informacje przesyłane są w string np.
woda=25
piec=50
pompa obiegowa = on
itp.
Dla potrzeb budowanej aplikacji która będzie działać w oparciu o BT lub wi-fi nie wiem jak wyciągnąć z string i umieścić w konkretnych editText wyniki tych pomiarów . Próbowałem z regex i stringFunctions lecz nie za bardzo mi to wychodzi . Proszę o jakieś podpowiedzi lub przykład do dalszej pracy , pozdrawiam .

Statystyki: Napisane przez grafii1 — 3 maja 2020, o 09:04