Where i've been wrong?

[Michel Uphoff]

Hoi,
 
Ik heb kennelijk last van een blackout, want het volgende wel erg basale stukje VB code werkt niet:
 
 
Dim result as string
 
Open "test.dat" For Binary As #1
Put #1, 1, "De data die wel geschreven, maar niet gelezen wordt"
Close #1
 
Open "test.dat" For Binary As #1
Get #1, 1, result
Close #1
 
Test.dat bevat na de eerste 'Open' actie  inderdaad de opgegeven tekenreeks, maar het Get statement levert een lege 'result' string op.
Wie maakt mij wakker?

[Peter]

Hoi Michel,

Ik heb kennelijk last van een blackout, want het volgende wel erg basale stukje VB code werkt niet:

Die code werkt wel, die geeft netjes een lege string terug.
Dat komt omdat de string RESULT leeg is en GET ... kan er dan niets inplakken.
Optie 1:
Vervang de regel GET ... door

Code: [Selecteer]

Line Input #1, Result
Optie 2:
Vervang de regel GET ... door

Code: [Selecteer]

Dim p As Integer
result = String(255, 0)    'reserveer ruimte in string
Get #1, 1, result
p = InStr(result, Chr(0))  'zoek startpunt ballast
If p > 0 Then
   result = Left(result, p - 1)     'strip ballast
Else
   result = "Error: de tekst kan onvolledig zijn!"
End If

Optie 3:
Hetzelfde als Optie 2 maar doe Dim Result As String * 255.
Result = String(255,0) kan dan vervallen.


Peter

[Michel Uphoff]

Hoi Peter,
 
Ach ja, da's waar ook. Dat stomme VB6 moet hiervoor stringruimte reserveren.
Blijft zo onlogisch dat ik het vergeten was.
Opgelost.

[TdJ]

En als je niet weet hoeveel data er gaat komen zou je bijvoorbeeld kunnen kiezen voor:
 
result = space(lof(#1)) ipv result = space(255)

TdJ