[elektro-etc] Hibásan unicode-os fájlnevek automata javítása

[Kaczmarek Edvard]

Na. Megvan. A hibás fájlnevek UTF-8-asok, vagyis az ékezetes 
karakterek helyén az ebben a táblázatban látható kétbájtos 
szekvenciák állnak: 
http://www.utf8-chartable.de/unicode-utf8-table.pl

Találtam egy Ken Rename nevű szoffert, amibe lehet VBScriptet 
írni.

A lentit ütöttem össze.

Ed


Function Rename(strPath, strName, strExt, bIsFolder)

dim strC2(255)
dim strC3(255)
dim strC4(255)
dim strC5(255)

'Feltöltjük a tömbökbe az ékezetes betűket és egyéb szimbólumokat
'ezt a részt kivágtam

strIn= strName + strExt
strOut= ""
n= 1
While n <= Len(strIn)
     If Asc(Mid(strIn,n,1))=194 Then
         strOut= strOut + strC2(Asc(Mid(strIn,n+1,1)))
         n=n+1
     ElseIf Asc(Mid(strIn,n,1))=195 Then
         strOut= strOut + strC3(Asc(Mid(strIn,n+1,1)))
         n=n+1
     ElseIf Asc(Mid(strIn,n,1))=196 Then
         strOut= strOut + strC4(Asc(Mid(strIn,n+1,1)))
         n=n+1
     ElseIf Asc(Mid(strIn,n,1))=197 Then
         strOut= strOut + strC5(Asc(Mid(strIn,n+1,1)))
         n=n+1
     Else strOut= strOut + Mid(strIn,n,1)
     End If
     n=n+1
Wend

Rename = strOut

End Function