DewSeb75
Messages postés5Date d'inscriptionjeudi 24 novembre 2005StatutMembreDernière intervention29 novembre 2005
-
24 nov. 2005 à 09:06
DewSeb75
Messages postés5Date d'inscriptionjeudi 24 novembre 2005StatutMembreDernière intervention29 novembre 2005
-
24 nov. 2005 à 11:49
Salut a tous je cherche a effectuer une boucle sur un dans un fichier TEXTE
c'est a dire recuperer un valeur pour la mettre dans une varible et ainsi de suite
en SCHELL DOS sa donne un truc comme sa
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 24 nov. 2005 à 10:15
mais quel rapport avec un Timer ?
en tapant "for /?" dans une fenetre de commande, tu aurais pu lire la
doc, avant de foncer bêtement, tête baissée, Kangourou_Nomade...
de plus, dewseb75 a précisé qu'il comptait placer son code dans un
script vbs, et je vois mal comment il pourrait ajouter un Timer !
je redonne l'énoncé :
lire un fichier, ligne a ligne, en ignorant les lignes vides
on ne considère (option /F) que le premier element de chaque ligne (le
separateur étant un espace) : on prend le premier 'mot', et on le place
dans une variable.
enfin, on effectue un traitement sur cette variable
en VB ca donnerai :
Dim iFile As Integer
Dim sBuffer As String
Dim SpacePos As Integer
iFile = FreeFile
Open "h:\a.txt" For Input As iFile
Do Until EOF(iFile)
Input #iFile, sBuffer
If Trim$(sBuffer) <> "" Then
SpacePos = InStr(sBuffer, " ")
If SpacePos <> 0 Then
sBuffer = Left$(sBuffer, SpacePos - 1)
Else
sBuffer = sBuffer
End If
MsgBox sBuffer
End If
Loop
Close iFile
et en VBS :
Dim sBuffer
Dim SpacePos
Dim FSO
Dim Stream
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Stream = FSO.OpenTextFile("h:\a.txt")
Do Until Stream.AtEndOfStream
sBuffer = Stream.ReadLine
If Trim(sBuffer) <> "" Then
SpacePos = InStr(sBuffer, " ")
If SpacePos <> 0 Then
sBuffer = Left(sBuffer, SpacePos - 1)
Else
sBuffer = sBuffer
End If
MsgBox sBuffer
End If
Loop
ici, le traitement est une MsgBox, mais libre a vous d'utiliser ce que vous voulez
DewSeb75
Messages postés5Date d'inscriptionjeudi 24 novembre 2005StatutMembreDernière intervention29 novembre 2005 24 nov. 2005 à 11:17
OLA doucement J'ai omis de vous dire je vien de démarrer en VBS
c'est hyper hard pour moi la
mais bon je m'accroche
au passage je cherche un bon cours pour bien debuter dessu si quelqu'un connait un site
Bon je repete mon probleme directement se qu'on ma demande
je dois realiser un test sur une liste de machine presente dans un fichier texte
pour cela en commande DOS j'utilisais une ligne
comme cellci
FOR /F %%a in (fichier.txt) DO
call "SERIE DE TEST"
Maintenant l'imperatif qui m'est demande c'est de faire passer le programme en VBS
et je n'arrive pas a effectuer une boucle sur un fichier TEXTE pour allimenter ma veriable du nom des machine present dans le fichier textes
voila
Merci pour les info Haut dessu j'essaye de voir ske je peux tirer de tout sa
Merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?