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

[Kovács József]

  Ezt a VBScripet akár excel-be vagy word-be is beirhatod...

Sőt, maga  a Windows is futtatja ScriptingHost-al...

KJ

2010.10.19. 23:28 keltezéssel, Kaczmarek Edvard írta:
>
> 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
>
>
>
>
> Ellenőrizte: AVG - www.avg.com
> Verzió: 9.0.862 / Vírus adatbázis: 271.1.1/3206 - Kiadás dátuma: 10/19/10 08:34:00
>