Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: [QBASIC] String
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
[QBASIC] String

Jest jakaś większa zmianna od stringów (ZMIENNA !!)?


Od Jelcyn'a - temat przeniesiony na właściwe forum. Następnym razem jak o Qbasicu ktoś będzie pisał np. na forum o VB to od razu post będę kasował

[Post edytowany dnia 06-02-2004 18:36 przez Jelcyn]


_____________________________________________
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

03-02-2004 23:01
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
bisiek




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

Zmienna string chyba nie ma ograniczenia


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

04-02-2004 13:26
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
?

Chodzi Ci o ilość przechowywanego tekstu?

String ma około 2 miliardów znaków.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

04-02-2004 18:40
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

255 znaków to ma string, ale w Qbasicu czy w Pascalu. w VB3 ma długość chyba 65535 znaków a w nowszych wersjach VB chyba coś koło 2 (albo 4) miliardów


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

05-02-2004 10:53
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
mikmas
From Łódź Stadt




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

No właśnie - głównie napisałem ten post z myślą o QB. Tam nie można władować średniego pliku do stringa. W VB (6) jednak też string jest trochę za mały, albo co innego, bo co by oznaczał błąd "Input past end of file"?? To nie jest wina za małego stringa??


_____________________________________________
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

06-02-2004 12:10
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Knight Lore''FC




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

"Input past end of file" - to znaczy ze ty chcesz jeszcze odczytywac zawartosc pliku a on juz sie zkonczyl...   Prosciej:
w pliku test.txt masz 2 linijki tekstu, a Ty w programie piszesz ze VB ma odczytac 3 no i wtedy masz ten blad.
Masz tu przyklad jak odczytac wszystko

Dim Bufor As String
Dim Kanal As Integer
Dim oLini As Integer

Kanal = FreeFile
oLini = 0

Open App.Path + "\test.txt" For Input As Kanal
    While EOF(Kanal) <> -1 'czytaj az nie napotkasz konca pliku
        Line Input #Kanal, Bufor
       
        'zawartosc Bufor mozesz przepisac do tablic uzywajac oLini
        oLini = oLini + 1
       
    Wend
Close Kanal

MsgBox oLini

06-02-2004 16:01
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

W Qbasicu nie ma pojemniejszej zmiennej, przynajmniej ja nie słyszałem. W pascalu natomiast są (w formacie ASCIIZ) po deklaracji dodatkowego modułu strings.tpu ;-)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

06-02-2004 18:39
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
mikmas
From Łódź Stadt




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

dzięx za info, ale ja używałem poniższego modułu i on nie mógł wczytać plik większy niż ileś tam

Dim NumerPliku As Integer
Dim WielkoscPliku As Double
NumerPliku = FreeFile
Open FileName For Input As NumerPliku
WielkoscPliku = LOF(NumerPliku)
Read = Input(WielkoscPliku, NumerPliku)
Close #1
Exit Function


No, ale cóż - przerzucę się na Twój sposób - Knight
A w przyokazji: co to jest FreeFile?? <<Używam to, a nawet nie wiem co to>>


_____________________________________________
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

07-02-2004 13:02
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1