Apprendre à rechercher des données dans un fichier en utilisant VB Script peut vous demande scripts plus dynamiques faire . VB Script est très similaire à Visual Basic donc si vous avez une certaine expérience en VB vous n'aurez pas de problème à travailler avec VB Script . En VB Script, vous pouvez manipuler des fichiers similaires à d'autres langages de programmation tels que la création, ajout, la suppression des données et la lecture des fichiers . Pour lire et rechercher des données dans un fichier, vous pouvez utiliser la fonction " Scripting.FileSystemObject . " Une fois que vous avez lu les données , alors vous pouvez chercher quelque chose en utilisant les données en mémoire. Instructions
1
Notepad de lancement et tapez " Ce sont des données dans mon dossier " et appuyez sur "Entrée". Tapez " 1" et appuyez sur " Entrée". Tapez " 2" et appuyez sur " Entrée". Type "3" et appuyez sur " Entrée". Tapez " 4" et appuyez sur " Entrée". Tapez " 5" et appuyez sur " Entrée". Appuyez sur "Ctrl " et " S" pour enregistrer le fichier . Enregistrez-le dans "C: \\ Temp " as ". ReadFile.txt " fermer le dossier
2
Notepad de lancement et tapez la commande suivante pour définir la variable " FileSystemObject " et ouvrez le fichier que vous avez créé étape . un pour la lecture :
Set fsoObj = CreateObject (" Scripting.FileSystemObject ") Set rdFile = fsoObj.OpenTextFile ("C: \\ Temp \\ readFile.txt " , ForReading )
3
Créer les variables que vous allez utiliser pour rechercher le fichier : Photos
Const ForReading = 1Dim lineNumDim myLineArray ()
4
boucle à travers les données du fichier et remplir le tableau avec ses données : Photos
i = 0do Jusqu'à rdFile.AtEndOfStreamRedim Preserve myLineArray ( i) myLineArray (i) = rdFile.ReadLinei = i + 1LooprdFile.Close
5
Ajouter ce qui suit " boucle For ... "pour rechercher les données dans le tableau pour le nombre " 4 "et un message lors de sa retrouvée :
lineNum = 0pour Chaque strLine dans myLineArrayIf ( strLine =" 4 " ) thenWScript.Echo " vous avez trouvé "& strLine et " en ligne " et lineNum &". " Fin iflineNum = lineNum + 1Suivant
6
Appuyez sur" Ctrl "et" S " pour lancer le "Enregistrer sous" fenêtre de dialogue . Tapez " vbScriptFile.vbs " à côté " . File Name " Enregistrer dans "C: \\ Temp " et fermez le fichier . Accédez à " C : \\ Temp " . Et double -cliquez sur " vbScriptFile.vbs " pour exécuter le programme