Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wczytanie określonej linii ze zmiennej
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Wczytanie określonej linii ze zmiennej

Tak jak w tematcie. Jak wczytać którąś linię ze zmiennej?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

27-07-2004 02:17
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Mozesz dokladniej ? - nie kumam o co Ci chodzi

27-07-2004 08:38
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

a - zmianna z liniami

dim b as variant

b=split(a,vbcrlf)

linia=b(nr_linii)


_____________________________________________
www.mob.abc.pl - moja strona o VB

27-07-2004 10:44
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

dzięki! o to chodziło


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

27-07-2004 11:36
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

A co robić jak ktoś nie ma funkcji split?


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

27-07-2004 23:21
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

qpić wersję 6.0 VB


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

28-07-2004 12:34
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Lub na około! Zapisujesz stringa, otwierasz za pomocą line input i wpisujesz, linia po lini do tablic


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

28-07-2004 12:35
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Albo piszesz własną funkcję split np:

Private Function SPLT(ByVal str As String, sep As String) As Variant
    Dim tabl() As String, start As Integer
    ReDim tabl(0)
    start = 1
    gdzie = InStr(1, str, sep, vbTextCompare)
    If gdzie <> 0 Then
        ReDim Preserve tabl(UBound(tabl) + 1)
        tabl(UBound(tabl) - 1) = Mid(str, start, gdzie - start)
    End If
    Do
        ReDim Preserve tabl(UBound(tabl) + 1)
        start = gdzie + 1
        gdzie = InStr(start, str, sep, vbTextCompare)
        If gdzie = 0 Then
            tabl(UBound(tabl) - 1) = Mid(str, start, Len(str) - start + 1)
        Else
            tabl(UBound(tabl) - 1) = Mid(str, start, gdzie - start)
        End If
    Loop While gdzie <> 0
    SPLT = tabl
End Function


Kod może nie jest super ale przynajmniej działa

[Post edytowany dnia 29-07-2004 11:44 przez m-a-x]


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

29-07-2004 11:32
Pokaż profil m-a-x  Wyślij email do m-a-x   
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1