Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Pliki tekstowe :D
anonim




Typ: Nie zarejestrowany
Pliki tekstowe :D

Jak wylosować linię z pliku tekstowego i sprawdzić ile linii ma ten plik??!! :?

18-08-2004 10:13
  
anonim




Typ: Nie zarejestrowany

Albo jak zrobić to samo z textboxem :?

18-08-2004 10:14
  
bisiek




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

W vb6 można to zrobić tak:

dim a() as string

'Dzieli tekst
a= split (text,vbcrlf)

'Górna granica tablicy
liczbalinii = ubound(a)

losowa = a(int(rnd*(ubound(a)+1))


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

18-08-2004 13:39
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
bisiek




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

Odczyt z pliku:

dim plik as string

open "C:\Plik.txt" for input as #1
plik = input(lof(1),1)
close #1


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

18-08-2004 13:41
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
anonim




Typ: Nie zarejestrowany

Eee... Coś tu nie gra :/...

18-08-2004 14:38
  
bisiek




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

A mógłbyś dokładniej powiedzieć z czym masz problem w tym co napisałem?


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

18-08-2004 14:45
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
anonim




Typ: Nie zarejestrowany

losowa = a(int(rnd*(ubound(a)+1))

a jak daję
losowa = a(int(rnd*(liczbalinii+1)))
to to linijkę wyżej jest jako błąd :/

18-08-2004 15:02
  
mikmas
From Łódź Stadt




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

bo liczbalinii nie została zadeklarowana. Ale powiedz treść błędu


_____________________________________________
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

18-08-2004 16:48
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
anonim




Typ: Nie zarejestrowany

Compile error:
Expected array

Jak piszę txta.Text = txta.Text & a(Int(Rnd * (UBound(a) + 1))) '[dodany jeden nawias na końcu to tak samo.
VB wskazuje w drugiej linii na ubound(a)

18-08-2004 18:52
  
bisiek




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

Spróbuj pominąć tą linijkę - jeżeli też jest błąd, to czy napewno zadeklarowałeś tak jak napisałem? U mnie jest tylko "Subscript Out Of Range" jeżeli podam pusty tekst.


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

18-08-2004 19:16
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
anonim




Typ: Nie zarejestrowany

To skopiuj cały kod i wklej tutaj, może w złych miejscach to wpisuję ?? :/
Albo wyślij mi na sampla

19-08-2004 09:18
  
bisiek




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

Przykład z dwoama command buttonami i jednym textboxem:

Dim a() As String

Private Sub Command1_Click()
Text = Text1.Text

'Dzieli tekst
a = Split(Text, vbCrLf)

'Górna granica tablicy
liczbalinii = UBound(a)

losowa = a(Int(Rnd * (UBound(a) + 1)))

End Sub

Private Sub Command2_Click()

Dim plik As String

Open "C:\Plik.txt" For Input As #1
plik = Input(LOF(1), 1)
Close #1

Text = plik

'Dzieli tekst
a = Split(Text, vbCrLf)

'Górna granica tablicy
liczbalinii = UBound(a)

losowa = a(Int(Rnd * (UBound(a) + 1)))

End Sub


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

19-08-2004 13:35
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Wszystkich odpowiedzi: 11 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1