Discussion :

[varan]

bonjour a tous,
Je voudrai creer un Script VB qui lit ce fichier texte (texte.txt)

Code :

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

1
2
3
4
5
6
7
            IP:port       Type     SSL?    Country
-----------------|------------|------|-------------------
 
193.251.169.190:8080   anonymous         Algeria               
193.251.174.238:80     anonymous         Algeria               
66.30.61.73:22788      hight anon.  yes  Australia             
206.166.195.33:8888    anonymous         Australia

et qui m'ecrive celui-ci (proxy.txt)

Code :

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

1
2
3
4
193.251.169.190:8080
193.251.174.238:80
66.30.61.73:22788
206.166.195.33:8888

En fait un script qui créé un fichier texte retenant uniquement les ip du premier fichier, mais je suis un novis en vbs...

Merci pour vos reponses

[ced600]

Oui et qu'elle est ton problème ?

[varan]

En fait j'y connais vraiment rien en VBS alors je voudrai un debut de piste sur les fonctions a utiliser pour realiser ce type de script....

[ced600]

Tu va avoir besoin de l'objet FileSystemObject (FSO)
Tu peux faire une recherche sur ce forum, ou sur le net. Tu trouveras plein de page en parlant, avec des exemples pour faire tout et n'importe quoi.

Utilise des mots clés comme : "lire fichier filesystemobject", et tu devrais tomber sur toute l'aide dont tu as besoin.

Dès que tu as crées un script, n'hesite pas à venir ici pour savoir ce que l'on en pense, ou pour nous demander pourquoi il ne fonctionne pas (dans ce as on aura besoin de connaitre les erreurs qu'il produit)

[RadPAT]

Salut,

c'est marrant l'article "How Can I Delete Just the IP Addresses From Each Line in a Text File?" des scripting guys t'explique justement comment faire le contraire !!

http://www.microsoft.com/technet/scr...7/hey0117.mspx


Mets une virgule après chaque adresse IP et remplace la ligne :

Code :

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

strNewContent = strNewContent & arrItems(1) & vbCrLf

par

Code :

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

strNewContent = strNewContent & arrItems(0) & vbCrLf

A++