Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Portage d'un script Unix (grep et cut)

Portage d'un script Unix (grep et cut)

2 réponses
Avatar
Olivier P.
Bonjour a tous,

Je peine terriblement a finir un script en VBS, et je ne sais comment m'en
sortir.
Initialement, je porte un fichier ecrit en bash issu de Unix dont le but
etait de parser un fichier PDF et de recupere ses tags.

Le fichier PDF ressemble a ca :
...
/OWEnvironment (JRI7334)
/Machine (SOWBAS1.OW)
/Host (SOWBAS1)
/Printer (\\\\serveurmaster\\icowdev1)
/PDL#20Program (*JDE PCL)
...

Sous Unix le code etait du style :
imp=`grep /Printer <fichier> | cut -f 2 -d '(' | cut -f 1 -d ')'`
etc....

Le but etait tout simplement de rechercher un tag, et d'en coller le contenu
dans un variable.
Je voudrais pouvoir fair l'équivalent en vbscript, mais helas Grep n'existe
pas, et je ne sais pas comment faire... J'ai cherché, cherché, mais je ne
maitrise pas trop ce langage, et toute aide serait la bienvenue !

Merci d'avance,

Olivier
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
news.microsoft
Quelque chose comme ceci devrai faire l'équivalent que ta commande UNIX.

C'est là qu'on apprécie quand même le Shell d'Unix. Je suis un ancien
unixien.

'*********************************************

Const ForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set theFile = fso.OpenTextFile("fic.txt", ForReading, False)

Do While theFile.AtEndOfStream <> True
r = theFile.ReadLine
If InStr(r,"/Printer") Then WScript.echo Mid (r,InStr
(r,"(")+1,InStr(r,")")-InStr (r,"(")-1)
Loop

theFile.Close

'**********************************************

--


Salutations

Yves HEILIG

"Olivier P." a écrit dans le
message de news:3f818096$0$27585$
Bonjour a tous,

Je peine terriblement a finir un script en VBS, et je ne sais comment m'en
sortir.
Initialement, je porte un fichier ecrit en bash issu de Unix dont le but
etait de parser un fichier PDF et de recupere ses tags.

Le fichier PDF ressemble a ca :
...
/OWEnvironment (JRI7334)
/Machine (SOWBAS1.OW)
/Host (SOWBAS1)
/Printer (\serveurmastericowdev1)
/PDL#20Program (*JDE PCL)
...

Sous Unix le code etait du style :
imp=`grep /Printer <fichier> | cut -f 2 -d '(' | cut -f 1 -d ')'`
etc....

Le but etait tout simplement de rechercher un tag, et d'en coller le


contenu
dans un variable.
Je voudrais pouvoir fair l'équivalent en vbscript, mais helas Grep


n'existe
pas, et je ne sais pas comment faire... J'ai cherché, cherché, mais je ne
maitrise pas trop ce langage, et toute aide serait la bienvenue !

Merci d'avance,

Olivier




Avatar
aze aze
Salut,
tu peux utiliser les object "Expression régulières" RegExp.
TRès puissantes...

"Olivier P." wrote in message
news:3f818096$0$27585$
Bonjour a tous,

Je peine terriblement a finir un script en VBS, et je ne sais comment m'en
sortir.
Initialement, je porte un fichier ecrit en bash issu de Unix dont le but
etait de parser un fichier PDF et de recupere ses tags.

Le fichier PDF ressemble a ca :
...
/OWEnvironment (JRI7334)
/Machine (SOWBAS1.OW)
/Host (SOWBAS1)
/Printer (\serveurmastericowdev1)
/PDL#20Program (*JDE PCL)
...

Sous Unix le code etait du style :
imp=`grep /Printer <fichier> | cut -f 2 -d '(' | cut -f 1 -d ')'`
etc....

Le but etait tout simplement de rechercher un tag, et d'en coller le


contenu
dans un variable.
Je voudrais pouvoir fair l'équivalent en vbscript, mais helas Grep


n'existe
pas, et je ne sais pas comment faire... J'ai cherché, cherché, mais je ne
maitrise pas trop ce langage, et toute aide serait la bienvenue !

Merci d'avance,

Olivier