löste det med denna :
Function StringToMultiByte(S)
Dim i, MultiByte
For i=1 To Len(S)
MultiByte = MultiByte & ChrB(Asc(Mid(S,i,1)))
Next
StringToMultiByte = MultiByte
End Function
Trådstart#1
Hej,
Har hittat ett script som jag skulle vilja göra lite förändringar i..
Detta använder en temp fil o skriver ner till..
Sedan läses den av binärt..
Skulle vilja skippa temp filen och bara använda en sträng istället men får inte rätt på det...
Någon som kan gen mig ett tips ?
'exempel värde
modguid = "FFF195D6E48D7E4BB851F4885D47A539"
strGUID = modguid
Call ConvertHexStringToByteArray (strGUID, newArr)
Sub ConvertHexStringToByteArray (ByVal strHexString, ByRef pByteArray)
Dim fso, stream, temp, ts, n
Set fso = CreateObject ("scripting.filesystemobject")
Set stream = CreateObject ("adodb.stream")
temp = fso.gettempname ()
Set ts = fso.createtextfile (temp)
For n = 1 To (Len (strHexString) - 1) Step 2
ts.write Chr("&h" & Mid(strHexString, n, 2))
Next
ts.Close
stream.Type = 1
stream.Open
stream.loadfromfile temp
pByteArray = stream.read
stream.Close
fso.deletefile temp
Set stream = Nothing
Set fso = Nothing
End Sub