Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Femme Profil pro
    Consultant en sécurité
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en sécurité
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 3
    Points
    3

    Par défaut Probleme Interprétation ligne par ligne

    Bonjour à tous et à toutes,

    J'essaye de modifier un script que j'ai réussi à faire avec ce que j'ai pu et qui a pour but de demander des renseignements à un utilisateur, de les stocker dans un fichier texte, puis d'utiliser ces renseignements dans un fichier qui iront remplacer des variables précises.
    Pour une utilisation ponctuelle, quand je n'ai besoin de générer qu'un seul fichier, c'est très bien, par contre, pour un gros volume (15, 20 fichiers) c'est plus embêtant.

    Du coup, je n'arrive pas à faire en sorte de créer une boucle dans mon VBS qui pourrait traiter mes informations ligne par ligne.

    J'explique le fonctionne de mon script:

    j'ai un fichier "infos.txt" qui est rempli avec 3 informations. (NOM / Adresse / NET)
    Ce fichier TXT qui ne comporte en temps normal qu'une seule ligne, est interprété par mon VBS, qui traite les 3 informations et les injecte dans un autre fichier "b.txt" en faisant un remplacement.

    Par contre, ce que j'aimerai, c'est utiliser un "infos.txt" comportant 10 - 20 lignes que j'aurais moi même alimenté et que le VBS me génère pour chaque ligne un fichier TXT avec les informations de la ligne utilisée (et si possible mettre le titre du TXT avec le nom de la ligne).

    Voici mon VBS:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
     
    CoreScriptHello()
     
    Function Blanc(TextFile)
    	Const ForReading = 1
    	Const ForWriting = 2
    	Set fso = CreateObject("Scripting.FileSystemObject")
    	Set objFile = fso.OpenTextFile(TextFile, ForReading)
    	Do Until objFile.AtEndOfStream
    		strLine = objFile.Readline
    		strLine = Trim(strLine)
    		If Len(strLine) > 0 Then
    			strNewContents = strNewContents & strLine & vbCrLf
    		End If
    	Loop
    	objFile.Close
    	Set objFile = fso.OpenTextFile(TextFile, ForWriting)
    	objFile.Write strNewContents
    	objFile.Close
    	set objTextFile = Nothing
    	set fso = Nothing
    End Function
     
     
    Function EditText(TextFile)
    	Number = "0,1,2,3,4,5,6,7,8,9"
    	strNumber =  split(number,",")
    	Const ForReading = 1
    	set objFS = CreateObject("Scripting.FileSystemObject")
    	set objTS = objFS.OpenTextFile(TextFile, ForReading)
    	strFileName2 = left(TextFile, (len(TextFile)-4)) & ".txt"
    	set objTS2 = objFS.CreateTextFile(strFileName2, True)
    	Do Until objTS.AtEndOfStream
    		strLine = objTS.Readline
    		if left(strLine,8)= "--More--" then
    			Strline2 = right(strLine,4)
    			objTS2.writeline (Strline2)
    		Else
    			for i = 0 to 9
    				if left(strLine,1) = strnumber(i) then
    					objTS2.writeline (strLine)
    				end if
    			Next
    		end if
    	Loop
    	set objFS = Nothing
    	set objTS = Nothing
    	set objFS2 = Nothing
    	set objTS2 = Nothing
    End Function
     
     
    Function CoreScriptHello ()
     
    	'RECUPERATION DES PARAMETRES
    	Const FileTempo = "infos.txt"
    	Const ForReading = 1
    	Const ForWriting = 2
    	Set fso = CreateObject("Scripting.FileSystemObject")
    	If fso.FileExists(FileTempo) = false Then
    		Nom = InputBox("Entrez Nom","Name")
    		Adresse = InputBox("Entrez Adresse","Mon ADRESSE")
    		MonNet = InputBox("Entrez NET","Mon NET")
    		set objTS2 = fso.CreateTextFile(FileTempo, True)
    		objTS2.writeline (Nom & ";" & Adresse & ";" & MonNet)
    		objTS2.close
    	else
    		set objTS2 = fso.OpenTextFile(FileTempo, ForReading)
    		Do Until objTS2.AtEndOfStream
    			RecupTemp = objTS2.readline
    		loop
    		arrayRecupTemp = split(RecupTemp,";")
    		Nom = arrayRecupTemp(0)
    		Adresse = arrayRecupTemp(1)
    		MonNet  = arrayRecupTemp(2)
    	End if
     
     
    	'MODIFICATION DU FICHIER ORIGINAL
    	Set objFile = fso.OpenTextFile("D:\b\b.txt", ForReading)
     
    	strText = objFile.ReadAll
    	objFile.Close
    	strNewText = Replace(strText, "LENET", MonNet)
    	strNewText2 = Replace(strNewText, "LENOM", Nom)
    	strNewText3 = Replace(strNewText2, "LEADRESSE", Adresse)
     
    	Dim fso, objFolder, objShell, objFile
    	Dim strDirectory, strFile
    	strDirectory = "D:"
    	strFile = "\b\new.txt"
     
    	'CREATION DU FICHIER
     
     
    	' Check that the strDirectory folder exists
    	If fso.FolderExists(strDirectory) Then
    	   Set objFolder = fso.GetFolder(strDirectory)
    	Else
    	Set objFolder = fso.CreateFolder(strDirectory)
    	End If
     
    	If fso.FileExists(strDirectory & strFile) Then
    	Set objFolder = fso.GetFolder(strDirectory)
    	Else
    	Set objFile = fso.CreateTextFile(strDirectory & strFile)
    	End If 
     
    	set objFolder = nothing
    	set objFile = nothing
     
    	If err.number = vbEmpty then
    	Set objShell = CreateObject("WScript.Shell")
    	objShell.run ("Explorer" & " " & strDirectory & "\" )
    	Else WScript.echo "VBScript Error: " & err.number
    	End If
     
    	'REECRITURE DU FICHIER
    	Set objFile = fso.OpenTextFile("D:\b\new.txt", ForWriting)
    	objFile.WriteLine strNewText3
    	objFile.Close
     
     
    End Function
    Voici mon fichier infos.txt:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    MARSEILLE;Lieudit;Jerome
    PARIS;portoric;John
    LYON;madelaine;Jimmy
    Du coup, actuellement, mon vbs n'inscrit que la dernière ligne du fichier, car j'imagine qu'il ouvre / remplace / referme le fichier pour chaque ligne alors que j'aimerais qu'il ouvre / remplace / sauvegarde le fichier sous le nom de la première variable "NOM".txt / referme / ouvre / traite ligne 2 / etc etc....
    Pour qu'à la fin, je puisse avoir 3 fichiers différents avec les noms "MARSEILLE" "PARIS" "LYON" .txt

    Je pense que cela ne doit pas être très compliqué, car j'imagine qu'il faut juste modifier ou créer une boucle, mais je galère un peu en toute sincérité ...
    Si quelqu'un pouvait venir m'éclairer de sa lumière, cela ne serait pas de refus.

    Merci beaucoup

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 260
    Points : 5 366
    Points
    5 366

    Par défaut

    Salut et BIENVENUE sur DVP

    Dans ton code, la fonction Blanc n'est appelée nulle part. Or c'est elle qui lit le fichier source d'informations et doit placer certaines informations dans un autre fichier. Cette fonction qui ne retourne pas de résultat devrait être remplacée par une procédure SUb.

    Pour le traitement d'un fichier comportant plusieurs lignes, on doit modifier cette fonction(ou Sub) de façon à pouvoir utiliser les infos de la ligne lue et en extraire le nom de la ville : Voici une esquisse du
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Blanc "Infos.txt"
    Sub Blanc(TextFile)
        Const ForReading = 1
        Const ForWriting = 2
        Dim oFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set objFile = fso.OpenTextFile(TextFile, ForReading)
        Do While Not objFile.AtEndOfStream
            strLine = Trim(objFile.Readline)
            If Len(strLine) > 0 Then
                NomFichier = Split(strLine, ";")(0) & ".txt"
                Set oFile = fso.OpenTextFile(NomFichier, ForWriting, True)
                oFile.Write StrLine
                oFile.Close
            End If
        Loop
        objFile.Close
    End Sub
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Candidat au Club
    Femme Profil pro
    Consultant en sécurité
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en sécurité
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Citation Envoyé par l_autodidacte Voir le message
    Salut et BIENVENUE sur DVP

    Dans ton code, la fonction Blanc n'est appelée nulle part. Or c'est elle qui lit le fichier source d'informations et doit placer certaines informations dans un autre fichier. Cette fonction qui ne retourne pas de résultat devrait être remplacée par une procédure SUb.

    Pour le traitement d'un fichier comportant plusieurs lignes, on doit modifier cette fonction(ou Sub) de façon à pouvoir utiliser les infos de la ligne lue et en extraire le nom de la ville : Voici une esquisse du Code
    Bonjour,

    Merci beaucoup, j'ai intégré votre code dans mon script et maintenant le script me génère autant de fichier TXT contenant une seule ligne d'informations en ce nommant bien avec le nom des villes.
    Pour cette partie c'est parfait.
    Problème, il ne remplace mon fichier de base "b.txt" qu'avec la dernière ligne de mon "Infos.txt".

    Maintenant, comment puis je modifier mon script pour qu'il remplace les infos dans mon fichier de base "b.txt" avec les infos de tous les nouveaux fichiers TXT sachant que maintenant chaque fichier ont un nom aléatoire (car dépend du nom de la ville) ?
    J'imagine qu'il faudrait dire au script de générer un fichier à partir de *.txt dans le dossier ?

    Dans mon script de base, j'ai mis que le fichier "Infos.txt" est utilisé pour remplacer les variables dans le fichier "b.txt"... Maintenant il faudrait faire quelque chose comme une boucle qui lis chaque TXT et le remplace dans le fichier "b.txt" ?

    Je suis perdue en terme d'écriture du script alors que je pense que l'idée n'est pas mauvaise

    -------

    EDIT: j'ai continué à chercher dans ma petite tête et dans ton bout de script tu utilises une variable "NomFichier" qui peut être utile pour l'ensemble du script le problème c'est que dès qu'on sort du SUB, je perds la valeur dedans, du coup le mieux aurait été qu'à l'intérieur de ta boucle

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
            If Len(strLine) > 0 Then
                NomFichier = Split(strLine, ";")(0) & ".txt"
                Set oFile = fso.OpenTextFile(NomFichier, ForWriting, True)
                oFile.Write StrLine
                oFile.Close
            End If
    Après la cloture du fichier, que l'on reste dans la boucle comme ça on garde la valeur de "NomFichier" qui devrait être "ville.txt" pour ensuite l'utiliser dans la suite du script.
    J'ai rajouté après le "oFile.Close" la valeur "Call CoreScriptRueil ()" qui est le nom de la fonction principale mais ça plante.
    Pareil, j'ai voulu faire un check de la variable "NomFichier" avant la fin de la boucle en rajoutant "MsgBox NomFichier" mais je n'ai aucune box qui s'affiche..

    Je patauge dans la mare

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 260
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 260
    Points : 5 366
    Points
    5 366

    Par défaut

    Bonjour;
    J'ai tenté de comprendre le raisonnement suivi pour l'explication du but mais, malheureusement, en vain.
    1. Le fichier b.txt contient-il des infos, est-il vide ?
    2. De quels remplacement s'agit-il ?
    3. Si on injecte dans le fichier b.txt les infos des différents fichiers créés, il ne sera pas différents du fichier infos.txt
    4. .........

    Dans ta fonction CoreScriptHello, suivant sa structure actuelle, le remplacement ne peut porter que sur la dernière ligne car tu lis les différentes lignes dans la même variable et que tu écrases par la lecture suivante. J'en prends l'extrait suivant modifié pour la prise en charge de toutes les lignes :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    else
         set objTS2 = fso.OpenTextFile(FileTempo, ForReading)
         Do Until objTS2.AtEndOfStream
               RecupTemp = objTS2.readline
            'Loop  ' déplacé plus bas
               arrayRecupTemp = split(RecupTemp,";")
               Nom = arrayRecupTemp(0)
               Adresse = arrayRecupTemp(1)
               MonNet  = arrayRecupTemp(2)
         'End if '  ceci déplacé plus bas
         'MODIFICATION DU FICHIER ORIGINAL
               Set objFile = fso.OpenTextFile("D:\b\b.txt", ForReading)
               strText = objFile.ReadAll
               objFile.Close
               strNewText = Replace(strText, "LENET", MonNet)
               strNewText2 = Replace(strNewText, "LENOM", Nom)
               strNewText3 = Replace(strNewText2, "LEADRESSE", Adresse)
         Loop
    End if
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  5. #5
    Candidat au Club
    Femme Profil pro
    Consultant en sécurité
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en sécurité
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Désolée, je pensais que mon explication pouvait être claire mais effectivement même si mon script est censé faire quelques chose de pas trop compliquer, l'exprimer clairement est plus difficile

    Pour expliquer l'environnement:
    Le script VBS utilise deux fichiers fixes qui sont :

    - b.txt => fichier de base possédant des variables à changer à l'intérieur (Variable: LENET | LENOM | LEADRESSE).
    Voici mon fichier "b.txt"
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    J'habite LENOM et plus clairement à LEADRESSE et mon nom est simplement LENET.
    J'aimerais bien vous présenter LENOM car nous vivons très bien à LEADRESSE
    - Infos.txt => fichier où j'ai les infos des variables que le VBS va remplacer dans le fichier "b.txt" (exemple de contenu du fichier: PARIS;portoric;John)

    Mon script actuellement va lire "Infos.txt" (qui pour le moment ne fonctionne qu'avec une seule ligne de donnée) et va prendre les infos dedans et va ouvrir le fichier "b.txt" et remplacer les variables "LENET | LENOM | LEADRESSE" par "PARIS;portoric;John".
    Une fois remplacé, le script va créer un nouveau fichier se nommant STATIQUEMENT "new.txt".

    -------

    Grâce à ta première modification, maintenant le script peut ouvrir "Infos.txt" qui possède plusieurs lignes et créer un fichier d'information PAR ligne en renommant le fichier d'infos avec le nom de la ville.
    Ici par exemple, avec le nouveau bout de script, avec un fichier "infos.txt" contenant ceci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    PARIS;portoric;John
    LYON;rue iglou;Mathi
    CAEN;vendome;Julien
    J'ai dorénavant 3 nouveaux fichiers TXT : "PARIS.txt | LYON.txt | CAEN.txt" contenant chacun les informations de la ville.

    Pour être plus concrète, voici en détail le contenu de mes 3 nouveaux fichiers:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    PARIS.txt => PARIS;portoric;John
    LYON.txt => LYON;rue iglou;Mathi
    CAEN.txt => CAEN;vendome;Julien
    Tout cela est maintenant OK grâce à ton code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Blanc "Infos.txt"
    Sub Blanc(TextFile)
        Const ForReading = 1
        Const ForWriting = 2
        Dim oFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set objFile = fso.OpenTextFile(TextFile, ForReading)
        Do While Not objFile.AtEndOfStream
            strLine = Trim(objFile.Readline)
            If Len(strLine) > 0 Then
                NomFichier = Split(strLine, ";")(0) & ".txt"
                Set oFile = fso.OpenTextFile(NomFichier, ForWriting, True)
                oFile.Write StrLine
                oFile.Close
            End If
        Loop
        objFile.Close
    End Sub
    Maintenant, ce que j'essaye de faire, c'est de rester dans ta boucle car dedans il y a une variable importante qui est "NomFichier".
    Ce nom de fichier contient normalement le nom de la ville.
    Donc j'aimerai que quand il créé un nouveau fichier txt "VILLE.txt" qu'il aille plus loin dans le script, pour qu'il prenne les informations de ce nouveau TXT et qu'il fasse la suite du script à savoir prendre les informations de "VILLE.TXT" et les injecte dans "b.txt" et que le fichier de sortie soit par exemple non plus "new.txt" (qui est le nom statique que j'ai mis dans mon VBS) mais "newVILLE.txt" et qu'il y est autant de "newVILLE.TXTt" qu'il y a de lignes dans le fichier de base "infos.txt".
    Bien évidement le mot "VILLE" que je mets dans "newVILLE.txt" je parle de la donnée contenue je pense dans la variable "NomFichier" de ton code dans la fonction SUB que tu m'as donné.

    Du coup, au final, j'aurais 3 fichiers "newVILLE.TXT" dans notre exemple à savoir:
    newPARIS.TXT
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    J'habite PARIS et plus clairement à portoric et mon nom est simplement John.
    J'aimerais bien vous présenter PARIS car nous vivons très bien à portoric
    newLYON.TXT
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    J'habite LYON et plus clairement à rue iglou et mon nom est simplement Mathi.
    J'aimerais bien vous présenter LYON car nous vivons très bien à rue iglou
    newCAEN.TXT
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    J'habite CAEN et plus clairement à vendome et mon nom est simplement Julien.
    J'aimerais bien vous présenter CAEN  car nous vivons très bien à vendome
    Tu penses que c'est un peu plus claire?

    Je suis désolée que ça soit assez confus ..

  6. #6
    Candidat au Club
    Femme Profil pro
    Consultant en sécurité
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Consultant en sécurité
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 3
    Points
    3

    Par défaut

    Bonjour à tous,
    J'ai voulu simplifier les choses en faisant tout dans la même boucle en ajoutant 2 variables (1 pour stocker juste le nom de la ville, et 1 pour stocker le nom de la ville.conf"

    Voici le code que j'ai réussi à faire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    Blanc "INFOS.txt"
    Sub Blanc(TextFile)
        Const ForReading = 1
        Const ForWriting = 2
    	'DECLARATION VARIABLE OFILE
        Dim oFile
        Set fso = CreateObject("Scripting.FileSystemObject")
    	'OUVERTURE DU FICHIER INFOS.TXT
        Set objFile = fso.OpenTextFile(TextFile, ForReading)
        Do While Not objFile.AtEndOfStream
            strLine = Trim(objFile.Readline)
            If Len(strLine) > 0 Then
    			'NOM VILLE dans variable NomDATA
    			NomDATA = Split(strLine, ";")(0)
    			'NOM FICHIER FUTUR TXT dans variable NomFichier
                NomFichier = Split(strLine, ";")(0) & ".txt"
    			'NOM FICHIER SORTIE en CONF dans variable NomConf
    			NomConf = Split(strLine, ";")(0) & ".conf"
    			'VERIFICATION DU CONTENU DES 3 VARIABLES
    			MsgBox NomConf
    			MsgBox NomDATA
    			MsgBox NomFichier
    			'CREATION DU FICHIER TXT avec la PREMIERE LIGNE DE INFOS.TXT
    			Set oFile = fso.OpenTextFile(NomFichier, ForWriting, True)
                oFile.Write StrLine
                oFile.Close
    			'LECTURE DU FICHIER TXT POUR RECUPERER LES INFOS
    			set oFile = fso.OpenTextFile(NomFichier, ForReading)
    			Do Until oFile.AtEndOfStream
    			'MISES EN MEMOIRE DES INFOS DANS DES CASES
               RecupTemp = oFile.readline
               arrayRecupTemp = split(RecupTemp,";")
    			LENET = arrayRecupTemp(0)
    			LENOM = arrayRecupTemp(1)
    			LEADRESSE = arrayRecupTemp(2)
    			'OUVERTURE DU FICHIER DE BASE POUR REMPLACEMENT DES INFOS
    			set objFile = fso.OpenTextFile("D:\b.txt", ForReading)
    			strText = objFile.ReadAll
    			objFile.Close
    			'REMPLACEMENT DES MOTS PAR CONTENU DES VARIABLES DE NOS CASES
    			strNewText = Replace(strText, "LENET", LENET)
    			strNewText2 = Replace(strNewText, "LENOM", LENOM)
    			strNewText3 = Replace(strNewText2, "LEADRESSE", LEADRESSE)
    			'CREATION DU NOUVEAU FICHIER DE CONF avec la VARIABLE NomConf
    			Set objFile = fso.OpenTextFile(NomConf, ForWriting)
    			objFile.WriteLine strNewText4
    			'FERMETURE DU FICHIER
    			objFile.Close
    		Loop
        objFile.Close
    End Sub
    Bon autant dire que ça ne fonctionne pas.. j'imagine que la fin de mes boucles ne sont pas bonnes ou la structure a un souci...

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. probleme : une ligne par service pour un utilisateur
    Par Halima91 dans le forum Access
    Réponses: 10
    Dernier message: 20/03/2007, 22h21
  2. probleme taille ligne
    Par rafaleee dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 24/01/2006, 12h35
  3. [FLASH MX] loadMovie probleme en ligne
    Par monsieuroudoudou dans le forum Flash
    Réponses: 2
    Dernier message: 28/12/2005, 14h32
  4. [JTable] probleme suppression ligne
    Par lilou77 dans le forum Composants
    Réponses: 1
    Dernier message: 01/11/2005, 10h34
  5. [TP]Probleme de ligne trop longue
    Par poppels dans le forum Turbo Pascal
    Réponses: 4
    Dernier message: 24/09/2004, 06h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo