Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Przeszukiwanie pliku tekstowego
ralfer




Typ: neutral
Postów: 47
Zarejestrowany: May 2003
Przeszukiwanie pliku tekstowego

Chodzi mi o to, ze chcialbym przeszukac plik tekstowy w ten sposob, zeby tylko niektore jego fragmenty trafily to textbox'ow....jest to standartowy plik tekstowy typu:
nazwa wartosc
nazwa wartosc
i ja te wartosci chcialbym wstawiac do odpowiednich
textbox....
dzieki z gory

25-07-2003 07:06
Pokaż profil ralfer  Wyślij email do ralfer   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
Nie wiem, czy o to ci chodzi, ale...

Przypuszczając, że o to ci chodzi to ja bym zrobił tak:
Zamieść jednego textboxa jako textbox, który ma być przeszukiwany w poszukiwaniu wartości i nazwij go np. txtFind. A pozostałe (od text1 do text3) jako textboxy, do których wpisze wyszukane wartości.

Dim Fraza1, Fraza2, Fraza3 as string,i as integer
Fraza1 = "Tu wpisz to, co chcesz aby znalazł i wpisał do pierwszego textboxa"
Fraza2 = "Tu wpisz to, co chcesz aby znalazł i wpisał do drugiego textboxa"
Fraza3 = "..."
for i=0 to len(txtfind.text)
if mid(txtfind.text,i,len(txtfind.text)=fraza1 then text1.text=fraza1
if mid(txtfind.text,i,len(txtfind.text)=fraza2 then text2.text=fraza2
if mid(txtfind.text,i,len(txtfind.text)=fraza3 then text3.text=fraza3
next

Nie wiem, czy to napewno działa, bo teraz pisałem tak z pamięci

[Post edytowany dnia 25-07-2003 09:49 przez mikmas]


_____________________________________________
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

25-07-2003 09:46
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
ralfer




Typ: neutral
Postów: 47
Zarejestrowany: May 2003
Hmmmm

Dzieki...ale chyba sie nie zrozumielismy....ja nie wiem jakiego stringu poszukuje bo te wartosci sie zmieniaja....podam przyklad takiego pliku:

zwierze 1 . . . . . . . . : krowa
zwierze 2 . . . . . . . . : kon
                            kura 
                            kaczka
pomocnik . . . . . . . . . : pies
typ budynku. . . . . . : buda

itd..
chodzi mi o to zeby program przeszukiwal plik tekstowy nie wiedzac co znajduje sie po ":" natomiast wiedzac co jest przed nim...........to co po ":" zmienia sie..............reszta pliku jest stala............no i oczywiscie to co sie zmienia ma ladowac do textbox.........czyli w textbox z tego pliku laduje :
textbox1.text = "krowa"
textbox2.text = "kon"
textbox3.text = "kura"
textbox4.text = "kaczka"
textbox5.text = "pies"
textbox6.text = "buda"

Zwroccie uwage ze zwierze 2:...........ma trzy wartosci kazda w nowej lini......jekby ktos wiedzial jak to wszystko powkladac do textbox byloby bosko

Dzieki z gory
P.S.
Mam nadzieje ze tym razem nakreslilem dokladniej o co mi chodzi...

28-07-2003 08:47
Pokaż profil ralfer  Wyślij email do ralfer   
ralfer




Typ: neutral
Postów: 47
Zarejestrowany: May 2003
No no prawie mi sie udalo

Jak mi sie uda do konca to zapodam na forum ten kodzik;-...teraz mam problemik ze skoczeniem do odpowiedniej linii w kodzie.............jak to sie robi??? kurka nie ma jak skleroza...
Pozdrowionka

28-07-2003 12:08
Pokaż profil ralfer  Wyślij email do ralfer   
netu



Typ: neutral
Postów: 119
Zarejestrowany: Jun 2003

mozesz to zrobic tak (jesli dobrze rozumiem Twoj problem):

open "plik" for input as #1
while not eof(1)
Line input #1, JakisString
'tu wycinasz ze stringa (JakisString) text ktory 
'jest po dwokropku, ladujesz go do stringa i
JakisString = ""
wend

w zmiennej JakisString znajduja sie linijki textu.
Cos w tym rodzaju. Wyslij mi maila to podam Ci caly program. mam nadzieje ze o to Ci chodzilo.

pozdrowienia i powpdzenia

[Post edytowany dnia 01-08-2003 10:58 przez netu]


_____________________________________________
To co dzieje się teraz i po teraz 
tak długo nie ma znaczenia 
dopóki jutro jutra jest takie samo jak wczoraj wczoraj. 
                                Murphy

01-08-2003 10:55
Pokaż profil netu  Wyślij email do netu        4335686
ralfer




Typ: neutral
Postów: 47
Zarejestrowany: May 2003
Jamamototakie;-)

Ja to wkoncu zrobilem tak...nawet dziala...tylko zapomnialem wrzucic na forum;-) sorrka


Dim varNapis As Variant
Dim varCzyJest As Variant
Dim varCzyjestwlasciwe As Variant
Dim strString As String
Dim varDlugosc As Variant
Dim i As Integer

On Error Resume Next:
NazwaPliku = "cfg.txt"
Open NazwaPliku For Input As #1
For i = 0 To 18  ' bo tyle mi tylko razy trzeba bylo;-)
Line Input #1, strString
Text1.Text = strString
varCzyJest = InStr(strString, ":"
Text3.Text = varCzyJest
varDlugosc = Len(strString)
Text4.Text = varDlugosc
varCzyjestwlasciwe = varDlugosc - varCzyJest
varNapis = Right(strString, varCzyjestwlasciwe)
If varCzyJest <> 0 Then
Text2(i).Text = varNapis
Else
i = i - 1
End If
Next
close #1

End Sub



Jeszcze raz dzieki wielkie ..

01-08-2003 16:38
Pokaż profil ralfer  Wyślij email do ralfer   
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1