Discussion :

[cincap]

Bonjour à toutes et à tous,

J'avais un code qui pouvait le faire mais à force de le modifier j'obtiens une erreur et je ne sais pas pourquoi.

Si quelqu'un avait une idée cela m'arrangerait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
' Convert UTF-8 file to ANSI - cincap
 
currentdir=Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))
 
source = currentdir & "out.txt"
dest = currentdir & "outansi.txt"
charset= "Windows-1252"
 
Set stream=CreateObject("ADODB.Stream")
stream.Open
stream.Type = 1
stream.LoadFromFile source
stream.Type = 2
stream.Charset = "utf-8"
    
Dim fso
Set fso = CreateObject("Scripting.Filesystemobject")
    
Set f = fso.CreateTextFile(dest, True)
    
Do Until stream.EOS
   
  strLine = stream.ReadText(10000)
       
  Set output=CreateObject("ADODB.Stream")
  output.Open
  output.Type = 2
  output.Charset = charset
  output.WriteText strLine
       
  output.Position = 0
  str = output.ReadText(-1)
 
  f.Write str
 
Loop
 
f.Close
stream.Close  

Ou une autre solution ?

Merci d'avance.

@+,

cincap

[ProgElecT]

Salut

j'obtiens une erreur

Un peu cour comme indication pour t'aider, quelle erreur? un N° ...... une information littéral ....

[umfred]

sans connaitre l'erreur, je pense qu'il y a peut-être à voir avec le fait que ton stream output soit créé et ouvert systématiquement à chaque tour de boucle

[cincap]

Bonsoir à toutes et à tous,

@ umfred et à ProgElecT, merci de vos réponses, en fait le code ne provoque pas une erreur de codage mais le fichier out.txt reste au format uft8.

Ce fichier est seul dans le dossier et le fichier .bat aussi.

Peut être une confusion dans les noms de répertoires ?

Sinon ma commande se fait depuis une autre application et me permet de voir les données de ma carte réseau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShellExecute(0, 'open', 'cmd', '/c netsh int sh >out.txt', 0, 0);

J'espérais remettre a/ en plus mais cela ne fonctionne pas en direct le fichier out.txt est tjs en uft8.

Ce qui est étonnant car c'est une ancienne application qui affichait correctement le résultat, peut-être une mise à jour de Win11 ?

@+,

cincap

[umfred]

le fichier convertit est censé s'appelé outansi.txt, le script vbs devrait avoir une extension en .vbs et pas en .bat
le script semble celui de vbsedit https://www.vbsedit.com/scripts/misc/text/utf8_ansi.asp

tu lances ton script dans une invite de commande ? sinon fait le, et ça te donnera les messages d'erreur si il y en a.

[cincap]

Bonjour à toutes et à tous,

@ umfred, merci pour ta suggestion mais en fichier .bat cela m'affiche bien les renseignements voulus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
@echo off
netsh int sh int > out.txt
::@pause
exit

Je vais essayé avec 1252

@+,

cincap

[umfred]

Je disais surtout que je ne comprenais pas pourquoi tu parlais d'un .bat alors que la question est posée sur un script vbs, que tu nous parles d'une autre application qui te génère le fichier. Donc j'étais perdu dans l'organisation de ton process.

[cincap]

Bonsoir à toutes et à tous,

@ umfred, tu as raison car souvent de Delphi j'utilise le .bat ou le .vbs et ici je viens d'ouvrir une ancienne application qui m'affiche des données de mon matériel et j'ai le même problème d'affichage.

Je suis certain que c'est depuis la dernière mise à jour de Win 11.

Maintenant je pourrais utiliser le fichier .bat mais j'ai essayé de placer chcp 1252 et mon fichier de sortie reste en utf8, je suis certain que je le place mal !

@+,

cincap

[l_autodidacte]

Il suffirait peut-être d'utiliser PowerShell au sein du code:
Get-Content .\Out.txt | Set-Content -Encoding utf8 .\dest.txt.
Ainsi le fichier sera converti en UTF-8
Le fichier de script devrait être mis dans le même dossier que le fichier source(à cause du .\ )sinon indique le chemin complet