2 svar · 243 visningar · startad av Viktor
Jag har sparat ner en integer till en fil från ett c++ program med hjälp av denna kod
int iTest;
WriteFile(hFile,(char*)&iTest,NULL,NULL);
och jag vill nu läsa denna fil från ett VB program och skriva ut värdet som står i filen. Hur gör jag det? Värdet står ju inte som klartext utan som en 4 bytes integer.
EDIT: Det är inte VB utan VB Script för Windows Script Host.
/Viktor
Med reservation för att byte-ordningen kanske är annorlunda och att min hjärna inte riktigt funkar idag, men typ:
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("dinfil.txt", ForReading)
str = f.Read(4)
tal= asc(mid(str,1,1))*256^3 + asc(mid(str,2,1))*256^2 + asc(mid(str,3,1))*256 + asc(mid(str,4,1))
WScript.Echo "Talet är: " & tal
Borde det väl bli?
Borde det väll bli?
Visst fungerar det! Tack!
Behövda ändra på lite, byte ordningen och deklarera variabler
Dim str
Dim tal
Dim fso
Dim f
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("I:\keystrokes.dat", ForReading)
str = f.Read(4)
tal= Asc(Mid(str,1,1)) + Asc(Mid(str,2,1))*256 + Asc(Mid(str,3,1))*256^2 + Asc(Mid(str,4,1))*256^3
GetKeyStrokes = tal
/Viktor