L'aide de VBScript Pour rechercher des fichiers


VBScript a un couple de méthodes puissantes pour la recherche à travers différents types de fichiers texte pour obtenir des informations. Cette information peut être transmise à d'autres scripts, utilisés pour prendre des décisions d'affaires ou même utilisés pour identifier les problèmes et de trouver une solution.

Certaines des méthodes utilisées couramment utilisés par un programmeur VBScript pour rechercher du texte dans des fichiers sont Instr, readline et .AtEndOfStream. Quelle que soit la méthode que vous choisissez, il ya plusieurs façons de rechercher un fichier texte. De nombreux programmeurs utilisent des combinaisons de méthodes ci-dessus, donc il n'y a vraiment pas de bonne ou mauvaise. Ce qui est important est de savoir si ou non cela fonctionne dans le développement pour le scénario.




Le code suivant essaie simplement dans un fichier qui se trouve dans C: \ temp \ somefile.txt, recherchez «Utilisateur:" dans chaque ligne dans le fichier, et si l '"Utilisateur:" chaîne existe, lit quelques caractères au sein de cette ligne et affiche dans un messagebox.

Le code est fonctionnel, plein de commentaires, "'" et est destiné à être utilisé comme un exemple. Pour des fins d'apprentissage, et de renforcer les méthodes de recherche de texte, le code peut être modifié en changeant le fichier est ouvert et la recherche d'une chaîne différente dans le fichier.

VBScript Livres

Code

VBScript pour rechercher une chaîne dans un fichier

Option Explicit

Dim objFSO, strLine, objReadFile

Septembre objFSO = CreateObject ("Scripting.FileSystemObject")

'Identifie le fichier en cours de lecture.

Septembre objReadFile objFSO.OpenTextFile = ("C: \ temp \ fichier.txt", 1, False)

'Lit le fichier jusqu'à la fin.

Faire jusqu'à objReadFile.AtEndOfStream

"Régler la lecture de ligne d'une variable appelée strLine.

strLine = objReadFile.ReadLine

«Couper le strLine variable pour supprimer tous les espaces avant ou après.

strLine = trim (strLine)

'Définir la condition de recherche. Dans ce cas, nous sommes à la recherche pour "utilisateur" dans la chaîne

«Certains texte qui a été fixé à strLine.

Si Instr (strLine, «Utilisateur») Puis

'Si "Utilisateur" est dans la ligne de texte, nous disons à aller de l'avant VBScript 7

«Caractères, prendre les 29 caractères suivants et mettre la chaîne à une variable nommée strLine.

strLine = Mid (strLine, 7, 29)

«Assetto strLine variable pour supprimer tous les espaces avant ou après.

strLine = trim (strLine)

End If

Corde

wscript.echo strLine

Septembre objFSO = rien

WScript.Quit ()

Autres exemples VBScript

  • Ecrire VBScript
  • Enregistrement VBScript
  • Ping Script
  • Avantages de RAID
  • Recherche d'une chaîne dans une clé de registre
  • Les variables d'environnement VBScript
  • Fichier texte Recherche
  • Function split

(0)
(0)

Commentaires - 0

Sans commentaires

Ajouter un commentaire

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Caractères restants: 3000
captcha