Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Dzielenie tekstu na poszczególne linijki
anonim




Typ: Nie zarejestrowany
Dzielenie tekstu na poszczególne linijki

Mam taki problem, bo piszę program bota ircowago w vb. I z winsocka przychodzą poszczególne polecenia, ale jeżeli jest ich duże natężenie to są sklejone w jeden string, każdy jest zakończony znakiem entera (vbCrLf). I mam problem jak napisać procedurkę, która szybko mi przerobi takie stringi.
Napisałem takie coś, za pomocą instrukcji For, która przetwarza cały tekst po każdym znaku i szuka entera, a jak znajdzie to wycina tekst za pomocą funkcji mid. Ale to działa zbyt wolno i jeśli co kilka sekund przychodzą teksty po 200 linijek program nie działa normalnie.
Czy jest jakaś funkcja, którą można wyjąć z tekstu poszczególne linijki? Każda linijka powinna iść dalej do Sub Sprawdz_polecenie(Data As String) jako Data.
Z góry dziękuję za pomoc. Piotrek ()

03-05-2005 20:01
  
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

jeśli poszczególne polecenia są podzielone zawsze tym samym znakiem (tu vbCrLf) to możesz użyć stnd. funkcji split:

    Dim arg As Variant, petla As Integer
   
    arg = Split(strZbiteDane, vbCrLf, -1, vbBinaryCompare)
   
    For petla = LBound(arg) To UBound(arg)
        Sprawdz_polecenie CStr(arg(petla))
    Next petla

[Post edytowany dnia 03-05-2005 20:29 przez hicks]


_____________________________________________
TLHW Clan member

03-05-2005 20:29
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1