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

[Karoly Kovacs]

Ahhh, ez nem is rossz! Jo tudni, elteszem magamnak.

Karoly

On 19.10.2010 23:28, Kaczmarek Edvard wrote:
>
> 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
>
>