Cudan problem u VB6...

[Geomaster]

Kao sto naslov teme kaze, imam jedan zaista cudan problem u VB6. Radim jedan veoma prost programski jezik slican ASM-u i imam opcije za snimanje projekta (.svp fajl) i kompajlovanje (.svpe executable fajl). Kompajlirani fajl bi trebao da se otvori sa SMOR_Runt.exe (da, da, zove se SMOR Virtual Processor) u komandnoj liniji sa: "D:\smor\...\smor_runt.exe" "%1" i on fino otvori fajl. Prilikom kompajlovanja kompajler funkciju StrReverse da bi koliko-toliko encryptovao kompajlirani sadrzaj od bas neiskusnih korisnika koji ne znaju da fajl mogu da otvore pomocu Notepad-a. Otkucam ja kod:

ReDim lin(0 To 0)
k = 0

If Dir(cmd) = "" Then Exit Sub


Open cmd For Input As #1
    Do While Not EOF(1)
        Line Input #1, com
        Line Input #1, arg

        k = k + 1

        ReDim Preserve lin(0 To k)
        
        
        lin(k).Command = StrReverse(com)
        lin(k).Arguments = StrReverse(arg)
    Loop
Close #1

Tu je lin() niz koji sadrzi programske linije a oblik fajla sledeci:

71 (ovo je ID komande)
552&,jorb ivrp etisenU (ovo su argumenti)
71 (ID)
452&,jorb igurd etisenUn\n\ (argumenti)
7
552&
8
0&
7
452&
8
1&
2
1&,0&
71
352&,: ej tatluzeRn\n\n\
7
352&
7
0&

. Projekt fajlove (koje otvara malo drugaciji code) normalno otvori medjutim problem se javlja kod kompajlovanih fajlova i SMOR_Runt.exe. Otvori fajl, procita prvu programsku liniju i komandu u drugoj (prva tri reda fajla) i lepo ih smesti u lin(), ali kada treba procitati argumente druge programske linije (cetvrti red) koja sadrzi:
552&,:jorb igurd etisenUn\n\, on procita samo 552 (decryptovano 255) i onda sasvim neocekivano izadje is loop petlje. Pokusavao sam svasta ali ne kapiram KAKO???. Please pomozite.

[KarloBasic]

Geomaster kaže:

Pokusavao sam svasta ali ne kapiram KAKO???. Please pomozite.

Ja sam probao i meni radi, tj probao sam tvoj kod i meni je ucitao svih 20 redova ( samo nisam koristio fu-ju StrReverse jer je nemam )

Evo ti modifikovan tvoj kod pa pogledaj:
( fajl za ucitavanje se zove proba.svp i treba da se nalazi na lokaciji cmd="c:\proba.svp" )

[MG-RAY]

U VB, "," oznacava kraj ucitavanja u jednom redu. tj da bi procitao nest tipa

sad, fde, gry

trebaju ti tri posebna Input -a

Resenje: stavi linije pod navodnike ("...")

[Geomaster]

Ne radi pa ne radi.

@MG-RAY: Mislim da nije to u pitanju jer bi inace procitao "552&" umesto samo "552" jer su linije: "552&,..."

Probacu ali sumnjam.

[KarloBasic]

MG-RAY kaže:

U VB, "," oznacava kraj ucitavanja u jednom redu. tj da bi procitao nest tipa

sad, fde, gry

trebaju ti tri posebna Input -a

Resenje: stavi linije pod navodnike ("...")

Geomaster je koristio naredbu Line Input, a ona za razliku od Input ucitava ceo red, dok se ne pojavi znak za kraj reda tj chr$(13) & chr$(10)

[Geomaster]

Uspeo sam. Samo sam postavio da current directory bude direktorijum gde se nalazi .svpe fajl. (ChDir) To znaci da je problem bio tehnicke prirode (komandna linija). Zato je i Karlu radio kod jer fajl nije specifiran u command line.

[MG-RAY]

KarloBasic kaže:

Geomaster je koristio naredbu Line Input, a ona za razliku od Input ucitava ceo red, dok se ne pojavi znak za kraj reda tj chr$(13) & chr$(10)

Vidi stvarno... nisam ni video...