Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: stringi marins Typ: neutral Postów: 10 Zarejestrowany: Jun 2002 stringi chcem odczytać ze stringu takie coś .xyz [ ## ## ## ] gdzie # to jakaś litera lub cyfra - ale problem w tym ze ich ilośc moze być duża - więc jak to odcyztac- wie ktoś - z góry dziękuje za pomoc _____________________________________________ Wrocławska Baza COMMANDOS redaktor, programista - marins 31-08-2003 10:50 1455238 kicaj Typ: neutral Postów: 271 Zarejestrowany: Aug 2003 Jesli chodzi ci o odczytywanie rzeczy pomiedzy spacjami to ci pomoge a jesli o co innego to musisz bardziej mi to wytlumaczyc linia = ".xyz [ # # # # # # # ]" 'xxxxxxxxxxxx Do While InStr(1, linia, " " > 0 slowo = Mid(linia, 1, InStr(1, linia, " " - 1) 'wycinane słowo od spacji do spacji linia = Mid(linia, InStr(1, linia, " " + 1) ' zmiejszamy stringa 'yyyyyyyyyyy Loop Jesli cię interesuje tylko jeden fragment to zamiast xxxxxxxx wstaw: licz = 0 ile = 2 ' ktory fragment a zamiast yyyyyyy wstaw: licz = licz + 1 If licz = ile Then Exit Do 31-08-2003 19:02 3914568 marins Typ: neutral Postów: 10 Zarejestrowany: Jun 2002 Na cóż - jeśli bym chciał podział według spacji to zrobiłbym to prościej: Dim str1() as String linia=".XYZ ( -20 -73 0 ) .ESC TUT1_03" str1() = Split(linia, " ", , vbTextCompare) i wtedy : str1(2)=-20 str1(3)=-73 str1(4)=0 ale jakby .ESC było przed .XYZ to wtedy jestem uziemiony - chcem coś takiego - jeśli .XYZ to odczytuje do XYZ a jeśli .ESC to do .ESC coś podobnego chcem uzyskać jak funckja preg_replace() w PHP3 Dzięuje z góry _____________________________________________ Wrocławska Baza COMMANDOS redaktor, programista - marins 31-08-2003 19:52 1455238 Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |