Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Odczytywanie z pliku txt i rozdzielanie textu
sobieh



Typ: neutral
Postów: 13
Zarejestrowany: Jul 2003
Odczytywanie z pliku txt i rozdzielanie textu

Witam . Mam nie maly problem . Chce odzczytac plik textowy do 2 textboxow ale w taki sposob zeby w jednym textboxie byla zawartosc kazdej linii pliku do znaku | a w drugim textboxie po tym znaku.

PLik wyglada tak (przykladowo)

765.654.57.11|12345678944
21.35.44.22|09876543223
11.22.33.445|876654432111444

a text boxy po przeczytaniu pliku powinny wygladac tak :

textbox 1        textbox 2
765.654.57.11    12345678944
21.35.44.22      09876543223
11.22.33.445      876654432111444


jak byk ktos z was mogl podac kod czegos co bedzie czytalo ten plik to bym byl wdzieczny



24-04-2004 14:42
Pokaż profil sobieh  Wyślij email do sobieh   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002


Text1.Text = ""
Text2.Text = ""
FN = FreeFile
Dim Podziel As Variant
Dim Linia As String
Open "C:\Plik.txt" For Input As #FN
    Do While Not EOF(FN)
        Line Input #FN, Linia
        Podziel = Split(Linia, "|", 2)
        Text1.Text = IIf(Text1.Text <> "", Text1.Text & vbNewLine, "" ) & Podziel(0)
        Text2.Text = IIf(Text2.Text <> "", Text2.Text & vbNewLine, "" ) & Podziel(1)
    Loop
Close #FN

Powinno zadziałać, oczywiście zmień "C:\Plik.txt" na swoje potrzeby.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

24-04-2004 15:12
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
sobieh



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

Ok dziala .... thx

Mam jeszcze jedno pytanko proste ale zaponialem chyba jak sie to robi chyba :

Jak wstawic do textboxa znak nowej linii ?

25-04-2004 14:24
Pokaż profil sobieh  Wyślij email do sobieh   
sobieh



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

OK WIEM JUZ

25-04-2004 14:26
Pokaż profil sobieh  Wyślij email do sobieh   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1