VB6/VBScript fichier de modification de l'encodage ansi

Je suis à la recherche d'un moyen de convertir un fichier de texte avec l'encodage UTF8 pour le codage ANSI.

Comment puis-je faire le tour et d'atteindre cet objectif dans Visual Basic (VB6) et ou vbscript?

InformationsquelleAutor HerbalMart | 2011-03-03

17

Si vos fichiers ne sont pas vraiment énorme (par exemple, même seulement 40 MO peut être lente et douloureuse), vous pouvez le faire en utilisant le code suivant dans VB6, VBA, ou VBScript:
```
Option Explicit

Private Const adReadAll = -1
Private Const adSaveCreateOverWrite = 2
Private Const adTypeBinary = 1
Private Const adTypeText = 2
Private Const adWriteChar = 0

Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName)
    Dim strText

    With CreateObject("ADODB.Stream")
        .Open
        .Type = adTypeBinary
        .LoadFromFile UTF8FName
        .Type = adTypeText
        .Charset = "utf-8"
        strText = .ReadText(adReadAll)
        .Position = 0
        .SetEOS
        .Charset = "_autodetect" 'Use current ANSI codepage.
        .WriteText strText, adWriteChar
        .SaveToFile ANSIFName, adSaveCreateOverWrite
        .Close
    End With
End Sub

UTF8toANSI "UTF8-wBOM.txt", "ANSI1.txt"
UTF8toANSI "UTF8-noBOM.txt", "ANSI2.txt"
MsgBox "Complete!", vbOKOnly, WScript.ScriptName
```
Remarque qu'il va gérer l'UTF-8 fichiers d'entrée avec ou sans BOM.

À l'aide de taper fort et de la liaison précoce permettra d'améliorer les performances des cheveux en VB6, et vous n'aurez pas besoin de déclarer les Const valeurs. Ce n'est pas une option dans le script si.

Pour VB6 programmes qui ont besoin de traiter des fichiers volumineux, vous pourriez être mieux à l'aide de VB6 natif I/O à l'encontre de tableaux d'Octets et d'utiliser un appel API pour convertir les données en blocs. Cela ajoute le supplément de la médiocrité de trouver le caractère de frontières bien (UTF-8 utilise un nombre variable d'octets par caractère). Vous auriez besoin d'analyser chaque bloc de données, vous lisez pour trouver un coffre-fort point de fin pour une API de traduction.

Je regarderais MultiByteToWideChar() et WideCharToMultiByte() pour commencer.

Noter que UTF-8 souvent "arrive" avec LF ligne délimiteurs au lieu de CRLF.
- +1 pour le "_autodetect" charset.
- Btw, CharSet doit être "_autodetect_all"! Dans HKCR\Mime\Database\Charset\_autodetect valeur Codepage est 50932 puis dans HKCR\Mime\Database\Codepage\50932 valeur Description est "Japonais (sélection Automatique)" - clairement ne correspond pas à "l'Utilisation actuelle de la page de codes ANSI" intention.
- Bizarre, quand j'examine le registre 50932 de Description montre que @%SystemRoot%\system32\mlang.dll,-4637 qui devrait récupérer la configuration des paramètres régionaux, autant que je sache.
- Oui, sur win7 il suffit de regarder la chaîne de tables de mlang.dll avec un éditeur de ressources. En anglais la table id 4637 est "Japonais (sélection Automatique)". Sur XP, la chaîne est codé en dur dans le registre.
- Eh bien je suis d'accord que _autoselect_all cartographie de page de codes 50001 a plus de sens. Semble comme un choix bizarre pour _autoselect à la carte de 50932 mais il semble aller aussi loin que Win95. Tous les "autoselect" types MIME sont noté que "pas pour un usage général" dans MSDN, mais outre la définition d'un jeu de caractères spécifique de la valeur, je ne vois pas d'autre alternative. L'ironie de tout cela est la question initiale probablement voulais vraiment "Unicode" (UTF-16LE) de toute façon.
- Que faire si ma conversion sera de l'UTF-8 w/o BOM ASCII CP852? Comment dois-je faire
- Il n'y a pas une telle chose comme une "page de codes ASCII" donc je suppose que vous vouliez dire un ANSI codepage 852. Pour cela, vous pouvez définir la sortie .Charset = "ibm852" ou son alias "cp852" (à la fois le travail pour moi).
- ne fonctionne pas quand je suis en train de convertir en UTF-8 pour Windows-1254 (j'ai des points d'interrogation à la place des caractères ascii étendus valeurs)
- Fonctionne très bien quand je l'ai lu avec un filesystemobject et à écrire avec ADODB.flux
InformationsquelleAutor Bob77

Je suis en utilisant ces fonctions d'assistance

Private Function pvReadFile(sFile)
Const ForReading = 1
Dim sPrefix
With CreateObject("Scripting.FileSystemObject")
sPrefix = .OpenTextFile(sFile, ForReading, False, False).Read(3)
End With
If Left(sPrefix, 3) <> Chr(&HEF) & Chr(&HBB) & Chr(&HBF) Then
With CreateObject("Scripting.FileSystemObject")
pvReadFile = .OpenTextFile(sFile, ForReading, False, Left(sPrefix, 2) = Chr(&HFF) & Chr(&HFE)).ReadAll()
End With
Else
With CreateObject("ADODB.Stream")
.Open
If Left(sPrefix, 2) = Chr(&HFF) & Chr(&HFE) Then
.Charset = "Unicode"
ElseIf Left(sPrefix, 3) = Chr(&HEF) & Chr(&HBB) & Chr(&HBF) Then
.Charset = "UTF-8"
Else
.Charset = "_autodetect"
End If
.LoadFromFile sFile
pvReadFile = .ReadText
End With
End If
End Function
Private Function pvWriteFile(sFile, sText, lType)
Const adSaveCreateOverWrite = 2
With CreateObject("ADODB.Stream")
.Open
If lType = 2 Then
.Charset = "Unicode"
ElseIf lType = 3 Then
.Charset = "UTF-8"
Else
.Charset = "_autodetect"
End If
.WriteText sText
.SaveToFile sFile, adSaveCreateOverWrite
End With
End Function

J'ai découvert que les "indigènes" FileSystemObject de lecture de la norme ANSI et UTF-16/UCS-2 fichiers est beaucoup plus rapide que ADODB.Stream hack.

Comment utiliser le Flux de données exactement comme prévu une sorte de "hack" de toute façon? Et si vous voulez de la vitesse, il y a beaucoup de meilleures alternatives que la pokey FSO.
Je ne vois pas de solutions de rechange dans votre réponse. Pensez-vous ADODB.Stream était destiné à la norme ANSI/UTF8 transcodage quand il y a une simple fonction de l'API pour le faire? Alors pourquoi est-il de la performance catastrophique s'il y avait un cas de test pour le transcodage? Franchement, je suis toujours à l'aide de ces fonctions dans la production même si j'ai trouvé la manière dure que OpenTextFile échoue sur vide les fichiers avec l'Unicode BOM (Chr(&HFF) & Chr(&HFE))

InformationsquelleAutor wqw

J'utilise ce script pour convertir n'importe quel jeu de caractères ou de la page de code (que je connais).

Ce script peut aussi de gérer les fichiers (plus d'un giga-octets), car elle diffuse une ligne à la fois.

' - ConvertCharset.vbs -
'
' Inspired by: 
' http://www.vbforums.com/showthread.php?533879-Generate-text-files-in-IBM-850-encoding
' http://stackoverflow.com/questions/5182102/vb6-vbscript-change-file-encoding-to-ansii/5186170#5186170
' http://stackoverflow.com/questions/13130214/how-to-convert-a-batch-file-stored-in-utf-8-to-something-that-works-via-another
' 
' Start Main
Dim objArguments
Dim strSyntaxtext, strInputCharset, strOutputCharset, strInputFile, strOutputFile 
Dim intReadPosition, intWritePosition
Dim arrCharsets
Const adReadAll = -1
Const adReadLine = -2
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
Const adTypeBinary = 1
Const adTypeText = 2
Const adWriteChar = 0
Const adWriteLine = 1
strSyntaxtext = strSyntaxtext & "Converts the charset of the input text file to output file." & vbCrLf
strSyntaxtext = strSyntaxtext & "Syntax: "  & vbCrLf
strSyntaxtext = strSyntaxtext & WScript.ScriptName & " /InputCharset:utf-8|windows-1252|ibm850|..." & vbCrLf
strSyntaxtext = strSyntaxtext & "              /OutputCharset:utf-8|windows-1252|ibm850|..." & vbCrLf 
strSyntaxtext = strSyntaxtext & "              /InputFile:\\path\to\inputfile.ext" & vbCrLf 
strSyntaxtext = strSyntaxtext & "              /OutputFile:\\path\to\outputfile.ext" & vbCrLf 
strSyntaxtext = strSyntaxtext & "              [/ShowAllCharSets]" & vbCrLf & vbCrLf 
strSyntaxtext = strSyntaxtext & "Example:" & vbCrLf
strSyntaxtext = strSyntaxtext & WScript.ScriptName & " /InputCharset:ibm850 /OutputCharset:utf-8 /InputFile:my_dos.txt /OutputFile:my_utf-8.txt" & vbCrLf
Set objArgumentsNamed = WScript.Arguments.Named
If objArgumentsNamed.Count = 0  Then 
WScript.Echo strSyntaxtext
WScript.Quit(99)
End If
arrCharsets = Split("big5,big5-hkscs,euc-jp,euc-kr,gb18030,gb2312,gbk,ibm-thai," &_
"ibm00858,ibm01140,ibm01141,ibm01142,ibm01143,ibm01144," &_
"ibm01145,ibm01146,ibm01147,ibm01148,ibm01149,ibm037," &_
"ibm1026,ibm273,ibm277,ibm278,ibm280,ibm284,ibm285,ibm297," &_
"ibm420,ibm424,ibm437,ibm500,ibm775,ibm850,ibm852,ibm855," &_
"ibm857,ibm860,ibm861,ibm862,ibm863,ibm864,ibm865,ibm866," &_
"ibm869,ibm870,ibm871,iso-2022-jp,iso-2022-kr,iso-8859-1," &_
"iso-8859-13,iso-8859-15,iso-8859-2,iso-8859-3,iso-8859-4," &_
"iso-8859-5,iso-8859-6,iso-8859-7,iso-8859-8,iso-8859-9," &_
"koi8-r,koi8-u,shift_jis,tis-620,us-ascii,utf-16,utf-16be," &_
"utf-16le,utf-7,utf-8,windows-1250,windows-1251,windows-1252," &_
"windows-1253,windows-1254,windows-1255,windows-1256," &_
"windows-1257,windows-1258,unicode", ",")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
For Each objArgumentNamed in objArgumentsNamed
Select Case Lcase(objArgumentNamed)
Case "inputcharset"
strInputCharset = LCase(objArgumentsNamed(objArgumentNamed))
If Not IsCharset(strInputCharset) Then 
WScript.Echo "The InputCharset (" & strInputCharset & ") is not valid, quitting. The valid charsets are:"  & vbCrLf
x = ShowCharsets()
WScript.Quit(1)
End If
Case "outputcharset"
strOutputCharset = LCase(objArgumentsNamed(objArgumentNamed))
If Not IsCharset(strOutputCharset) Then 
WScript.Echo "The strOutputCharset (" & strOutputCharset & ") is not valid, quitting. The valid charsets are:"  & vbCrLf
x = ShowCharsets()
WScript.Quit(2)
End If
Case "inputfile"
strInputFile = LCase(objArgumentsNamed(objArgumentNamed))
If Not objFileSystem.FileExists(strInputFile) Then  
WScript.Echo "The InputFile (" & strInputFile  & ") does not exist, quitting."  & vbCrLf
WScript.Quit(3)
End If
Case "outputfile"
strOutputFile = LCase(objArgumentsNamed(objArgumentNamed))
If objFileSystem.FileExists(strOutputFile) Then  
WScript.Echo "The OutputFile  (" & strOutputFile & ") exists, quitting."  & vbCrLf
WScript.Quit(4)
End If
Case "showallcharsets"
x = ShowCharsets()
Case Else
WScript.Echo "Unknown parameter, quitting: /" & objArgumentNamed & ":" & objArgumentsNamed(objArgumentNamed)
WScript.Echo strSyntaxtext
End Select 
Next
If Len(strInputCharset) > 0 And Len(strOutputCharset) > 0 And Len(strInputFile) > 0 And Len(strOutputFile) Then 
Set objInputStream = CreateObject("ADODB.Stream")
Set objOutputStream = CreateObject("ADODB.Stream")
With objInputStream
.Open
.Type = adTypeBinary
.LoadFromFile strInputFile
.Type = adTypeText
.Charset = strInputCharset
intWritePosition = 0
objOutputStream.Open
objOutputStream.Charset = strOutputCharset
Do While .EOS <> True
strText = .ReadText(adReadLine)
objOutputStream.WriteText strText, adWriteLine
Loop
.Close
End With
objOutputStream.SaveToFile strOutputFile , adSaveCreateNotExist
objOutputStream.Close
WScript.Echo "The " & objFileSystem.GetFileName(strInputFile) & " was converted to "  & objFileSystem.GetFileName(strOutputFile) & " OK."
End If
' End Main
' Start Functions 
Function IsCharset(strMyCharset)
IsCharset = False
For Each strCharset in arrCharsets
If strCharset = strMyCharset Then 
IsCharset = True
Exit For
End If
Next
End Function 
Function ShowCharsets()
strDisplayCharsets = ""
intCounter = 0
For Each strcharset in arrCharsets
intCounter = intCounter + Len(strcharset) + 1
strDisplayCharsets = strDisplayCharsets & strcharset & ","
If intCounter > 67 Then 
intCounter = 0
strDisplayCharsets = strDisplayCharsets & vbCrLf 
End If
Next
strDisplayCharsets = Mid(strDisplayCharsets, 1, Len(strDisplayCharsets)-1)
WScript.Echo strDisplayCharsets 
End Function 
' End Functions

InformationsquelleAutor Ciove

@Bob77 la réponse n'a pas de travail pour moi, donc j'ai converti @Ciove réponse à une simple routine sub et il fonctionne très bien.

' Usage: 
' EncodeFile strInFile, "UTF-8", strOutFile, "Windows-1254", 2
Sub EncodeFile(strInputFile, strInputCharset, strOutputFile, strOutputCharset, intOverwriteMode)
'5th parameter may take the following values:
'Const adSaveCreateOverWrite = 2
'Const adSaveCreateNotExist = 1
Const adReadLine = -2
Const adTypeBinary = 1
Const adTypeText = 2
Const adWriteLine = 1
Set objInputStream = CreateObject("ADODB.Stream")
Set objOutputStream = CreateObject("ADODB.Stream")
With objInputStream
.Open
.Type = adTypeBinary
.LoadFromFile strInputFile
.Type = adTypeText
.Charset = strInputCharset
objOutputStream.Open
objOutputStream.Charset = strOutputCharset
Do While .EOS <> True
strText = .ReadText(adReadLine)
objOutputStream.WriteText strText, adWriteLine
Loop
.Close
End With
objOutputStream.SaveToFile strOutputFile, intOverwriteMode
objOutputStream.Close
End Sub

InformationsquelleAutor nurettin

Vous devez vous connecter pour publier un commentaire.