Récuperer une ligne d'un fichier texte dans une variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récuperer une ligne d'un fichier texte dans une variable

trik

Section TSMIR071

Salut a tous, je suis nouveau sur ce forum, et débutant en vbs !!! et je dois faire un script en vbs pour vérifier que (dans mon entreprise) le dossier Mes documents (c:\Docs and ...\USER)des utilisateurs soit bien celui qui est sauvegarder tous les midi. Pour la sauvegarde le dossier est renseigné dans un fichier .bks (lecture/ecriture avec notepad). j'ai déja réussi a récuperer le chemin du profil utilisé par l'user :wahoo: (avec userprofile) mais je n'arrive pas à lire la 2ème ligne du fichier bks (ni la premiere d'ailleurs ) j'ai trouvé nombre de script qui le faisait mais aucun ne marche ou alors je n'arrive pas a le comprendre pour le paramétrer.
Quelqu'un a une idée ?? merci

je partirais comme ca

Code :

Dim Var1
Open "C:\test.txt" For Input As #1
Input #2, Var1
Close #2
MsgBox "Le fichier contient : " & Var1

mais :fou: :fou:

Publicité

olivthill

:hello:

1. Le symbole "#" veut dire numéro en anglais et est l'équivalent de notre "n°".
En basic chaque fichier ouvert est identifié par un numéro que l'on choisit soi-même, mais qui doit être utilisé de manière cohérente.
En l'occurence, comme toutes tes opérations concernent le premier fichier, il faut avoir #1 partout.

2. Un fichier ouvert en mode Input est lu de manière séquentielle. Donc, pour lire le deuxième enregistrement, il faut d'abord lire le premier enregistrement, puis le deuxième.

3. Au lieu d'Input, il existe Line Input qui est peut-être plus approprié dans ton cas. Voir la doc.

Message édité par olivthill le 05-05-2006 à 10:48:17

trik

Section TSMIR071

ou puis je trouver une doc "complete", quand au 1 et 2 pour les # c'est une erreur de copie de ma part désolé
meme avec les changements que je viens de faire (line.input), je n'ai meme pas ma msgbox qui s'affiche

Message édité par trik le 05-05-2006 à 11:14:46

trik

Section TSMIR071

Ca y'est je m'en suis sorti grace à :

Code :

chemin="h:\sauvegarde\maSauvegarde.txt"
set fso=wscript.createobject("scripting.filesystemobject" )
if fso.FileExists(chemin) then
set ouvrir=fso.opentextfile(chemin,1)
l1 = ouvrir.readline
l2 = ouvrir.readline
msgbox l2
else
msgbox "Le fichier n'existe pas"
end if

mais ca ne marche pas avec un fivhier *.bks, ca me saoule

Message édité par trik le 05-05-2006 à 12:03:21

olivthill

Je soupçonne que le fichier *.bks contient de l'Unicode.
Dans ce cas, il suffirait de modifier la ligne du opentextfile en ajoutant le paramètre -1 de la manière suivante :

set ouvrir=fso.opentextfile(chemin,1,,-1)

trik

Section TSMIR071

Un grand merci, tu peu m'indiquer a quoi sert le paramètres -1, histoire de pas appliquer betement. en tout cas ca fonctionne maintenant merci beaucoup

olivthill

Pour info, le quatrième paramètre de OpenTextFile doit prendre la valeur 0 (qui est la valeur par défaut), si le fichier est codé en Ascii, ou -1 si le fichier est codé en Unicode.
Les fichiers Unicodes ont un en-tête constitué des deux octets FF FE, et chaque caractère est codé sur deux octets. Cela ne se voit pas avec Notepad, mais c'est visible avec un éditeur de texte qui montre le contenu en binaire.

trik

Section TSMIR071

Merci de cette précision pour ceux que ca pourrais interresser, ce script verifie si le dossier mes documents utilisé par l'user est le meme que celui que sauvegarde ntbackup

Code :

Dim WshShell
Dim WSHFso
Dim WshNetwork
Dim WshSysEnv
Dim userprof
Set WSHShell = WScript.CreateObject("WScript.Shell" )
Set WSHFso = WScript.CreateObject("Scripting.FileSystemObject" )
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set objFSO = createobject("Scripting.filesystemobject" )
Set WshSysEnv = WshShell.Environment("Process" )
'USERPROF EST LE CHEMIN D'ACCÈS AU REPERTOIRE DE L'UTILISATEUR
userprof = WshSysEnv("userprofile" )
profil = mid(userprof, 27) 'j'enleve c:\Doc... pour avoir le login utilisé
chemin="h:\sauvegarde\maSauvegarde.bks" 'le chemin du fichier bks de ma sauvegarde
if WSHFso.FileExists(chemin) then
set ouvrir=WSHFso.opentextfile(chemin,1,,-1) 'merci a olivthill pour cette ligne
ligne1 = ouvrir.readline
ligne2 = ouvrir.readline 'le chemin complet se trouve a la deuxieme ligne (pour moi)
else
msgbox "Le fichier"+" "+chemin+" "+" n'existe pas", , "Erreur"
end if
if ligne2=userprof then
msgbox "Votre sauvegarde s'effectue normalement !!!" & vbCrLf & "Votre login est"+" "+profil & vbCrLf & "Votre répertoire personnel est"+" "+userprof, vbInformation, "Sauvegarde correcte"
else
msgbox "Votre sauvegarde semble ne pas se faire sur le bon répertoire !!!" & vbCrLf & "Veuillez prévenir votre administrateur réseau", vbCritical, "Problème de sauvegarde"
end if

merci a toi olivithill tu m'as bien aidé, a plus sur le forumm

Message édité par trik le 05-05-2006 à 15:59:41

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récuperer une ligne d'un fichier texte dans une variable

Sujets relatifs
Texte d'un select...	Récupérer la mise en forme conditionnelle
supprimer boite de dialogue lors de la fermeture fichier	[debutant] Structure de mon fichier correcte ?
Contrôler un fichier avec l'extension .pdf	Récuperer les dimensions d'une image (PHP)
texte sur graphique	Enregistremt de fichier : choix du répertoire et du nom de fichier VBA
choisir le chemin de création d'un fichier txt	[BUILDER] Supprimer une ligne d'un fichier texte
Plus de sujets relatifs à : Récuperer une ligne d'un fichier texte dans une variable

Page générée en 0.040 secondes