récupérer chaine dans fichier txt - VB/VBA/VBS - Programmation
Marsh Posté le 09-06-2005 à 14:12:45
cradle6661 a écrit : hello,tt d'abord dsl si la rep a ma question est déjà postée mais je ne l'ai pas vu et faut dire que je dois vite trouver une reponse (manque de temps) |
Salut,
On n'a pas pour habitude de donner du code tout fait
D'ailleurs on apprend mieux en cherchant par soi-même non?
Néanmoins, je vais te donner quelques pistes. Dans l'idée, tu dois ouvrir ton premier fichier txt en lecture (ou en TextStream) et l'autre fichier en écriture.
Ensuite, tu lis les lignes de ton premier fichier en cherchant une chaîne de caractère t'indiquant que tu vas tomber sur un nom de PC. A partir de là, tu extraits de la ligne le nom du PC et tu l'écris dans l'autre fichier.
A la fin du programme tu fermes les deux fichiers et le tour est joué.
Je pense, montre en main, qu'avec l'aide en-ligne de VB il ne te faudra pas plus d'1/2h pour coder ce programme!
A+
Marsh Posté le 10-06-2005 à 09:15:08
als voici ma partie de code :
'-----------------------------------
'fonction qui ouvre le fichier members
Private Sub Command1_Click()
Dim monFichier , Ligne
Dim NoFichier , i
monFichier = "C:\scripts\members.txt"
'NoFichier = FreeFile
OpenFile monFichier 'For Input As #NoFichier
End Sub
'-------------------------------------
'fonction qui récupère le nom des pcs dans le fichier members
nom_pc="pc1"
'------------------------------------
'fonction qui crée un second fichier et recopie les noms des pcs dedans
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject" )
Set tf = fso.CreateTextFile("C:\scripts\res.txt", True)
tf.Write (nom_pc &Chr(13)& Chr(10) )
tf.Close
End Sub
CreateFile()
*******************
donc je suis bloqué ici!
pour info,la partie analyse je le savais déjà, c'est le vbs qui me pose pb.en PERL je pourrais aussi le faire en 1/2h
mais la en VBS je bloque
Marsh Posté le 11-06-2005 à 18:54:02
Je viens de me rendre compte que l'aide de VBA est nettement moins conviviale en Office 2003 qu'en 97.
Je suis donc allé rechercher dans Office 97 comment faire.
C'est du VBA, je n'ai pas testé en VBS:
Dim iFileOut As Integer |
J'utilise une variable globale. A toi de voir comment gérer tout ça plus "proprement" et adapter au VBS.
Marsh Posté le 09-06-2005 à 13:09:05
hello,tt d'abord dsl si la rep a ma question est déjà postée mais je ne l'ai pas vu et faut dire que je dois vite trouver une reponse (manque de temps)
mn prob est tt simple:
je dispose d'un fichier txt contentant la liste de ts les pc du réseau parmi d'autres info et je dois récupérer le nom de ces machines (PC1,PC2) par grp de 256 dans un autre fichier txt.
(256 car après je traite ces pc avec MBSA qui n'autorise que 256 hotes d'analyse par fichier txt)
n'ayant plus pratiqué de VB depuis un moment, quelqu'un aurait-il déjà ce code?
format du fichier txt :
netDomBlabla
blabala
Member 1 = \\PC1
Member 2 = \\PC2
.........
Merci d'avance
Cradle