Hej!
Jag ska koda om en xml fil till Base64.
Har tittat i Tips & tricks och hittat en funktion som jag har fått att fungera, till viss del.
Vad jag däremot inte förstår varför det är ett $-tecken efter vissa funktioner bl.a mid-funktionen.
Först fungerade det inte, men när jag tog bort $-tecknet fungerade funktionen.
Det verkar som att bara vissa delar kommer med i xmlfilen, kan detta ha att göra med $-tecknet?

Tacksam för svar
/Maria

Det ska inte spela någon roll med $.
Fittat en funktion på nätet:
<code>
Function Base64Encode(inData)
'rfc1521
'2001 Antonin Foller, PSTRUH Software, http://pstruh.cz
Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Dim cOut, sOut, I

'For each group of 3 bytes
For I = 1 To Len(inData) Step 3
Dim nGroup, pOut, sGroup

'Create one long from this 3 bytes.
nGroup = &H10000 * Asc(Mid(inData, I, 1)) + _
&H100 * MyASC(Mid(inData, I + 1, 1)) + MyASC(Mid(inData, I + 2, 1))

'Oct splits the long To 8 groups with 3 bits
nGroup = Oct(nGroup)

'Add leading zeros
nGroup = String(8 - Len(nGroup), "0") & nGroup

'Convert To base64
pOut = Mid(Base64, CLng("&o" & Mid(nGroup, 1, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 3, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 5, 2)) + 1, 1) + _
Mid(Base64, CLng("&o" & Mid(nGroup, 7, 2)) + 1, 1)

'Add the part To OutPut string
sOut = sOut + pOut

'Add a new line For Each 76 chars In dest (76*3/4 = 57)
'If (I + 2) Mod 57 = 0 Then sOut = sOut + vbCrLf
Next
Select Case Len(inData) Mod 3
Case 1: '8 bit final
sOut = Left(sOut, Len(sOut) - 2) + "=="
Case 2: '16 bit final
sOut = Left(sOut, Len(sOut) - 1) + "="
End Select
Base64Encode = sOut
End Function

Function MyASC(OneChar)
If OneChar = "" Then MyASC = 0 Else MyASC = Asc(OneChar)
End Function
</code>

Funktionen fungerade bra, tror jag.
Vill gärna se att allting är med såsom xml filen ser ut.
Sparar ner som en enkel textfil och decodar den. Tyvärr blir det bara massa "konstiga tecken". Är som sagt var inte så insatt i omkodning.
Hur kan jag kolla så att allting är med i xmlfilen?
Jag vill alltså decoda om textfilen till en xmlfil igen för att kolla.

/Maria

> Jag vill alltså decoda om textfilen till en xmlfil igen
> för att kolla.

http://www.tydal.nu/se/tools/

Tack för länken.
Fick ytterligare ett problem som jag tyvärr inte sett innan.
Funktionen hittar inte xmlfilen, den skriver bara ut sökvägen.
Så här har jag hänvisat till sökvägen:
inData = server.mappath("cxmlfiler/4589.xml")

Fungerar det inte med mappath?

/Maria

mappath hämtar bar sökvägen. Du får öppna filen med FSO.

Nu fungerar det och xmlfilen ser ut som den ska.
Tack så jättemycket för hjälpen.

/Maria