[VBA] Banaliser les guillemets dans un script Résolu/Fermé

Question

Bonjour,

J'ai un script VBA qui me permet de générer du code VBA à coller avec du texte dedans (venant d'un fichier), pour le recracher dans une textbox.


On Error GoTo Err_modifier_Click

Dim i, j, k
Dim config, texte
Dim IP, login, IP_public

chemin_conf = InputBox("Saisir le chemin d'accès exact de la configuration en .txt, et normalisé")
Open chemin_conf For Input As #1

Open chemin_conf & "_generated.txt" For Output As #2

j = 1
While Not EOF(1)
        For i = 1 To 23
             If EOF(1) Then Exit For
             Line Input #1, texte
             If i = 1 Then
                config = "conf" & j & " = " & Chr(34) & texte & Chr(34) & " _"
                Print #2, config
                j = j + 1
             Else
                config = " & Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " _"
                Print #2, config
             End If
         Next i
         If EOF(1) Then
           config = " & Chr(13) & Chr(10) & " & Chr(34) & Chr(34)
           Print #2, config
           Print #2, ""

         Else
           Line Input #1, texte
           config = " & Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " & chr(13) & chr(10)"
           Print #2, config
           Print #2, ""
         End If
Wend

config = "conf = conf"
For k = 1 To j - 2
    config = config & k & " & conf"
Next
config = config & j - 1
Print #2, config
Close
MsgBox ("Fichier texte généré dans le meme dossier avec succès !")
Exit Sub

Exit_ajout_Click:
        Exit Sub
        
Err_modifier_Click:
    MsgBox Err.Description
    Resume Exit_ajout_Click

End Sub


Le problème, c'est qu'il m'arrive d'avoir dans ce texte des guillemets, qui me sont entièrement indispensable...

Comment je pourrais optimiser mon code, pour qu'à chaque ligne de texte inscrite dès qu'il detecte un guillemet il me le banalise ?

J'avais pensé bien sûr au chr(34), mais pour coder un remplacement de " par " & chr(34) & " tout en ayant coupé la ligne en deux...sachant également qu'il peut y avoir jusqu'à 10 guillemets par ligne...je suis complètement perdu ...:^)

Une idée ?

Merci infiniment !

lml-mike · Answer

Ok, j'ai trouvé comment banaliser les guillemets, mais pas comment inclure cela dans le script...

en fait c'est très simple il suffit de les dédoubler. Si par exemple dans 

Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " _"

Je rencontre : 

Chr(13) & Chr(10) & "chat-script ORANGE "" "ATT*64***4#" TIMEOUT 10 "CONNECT"" _

Il faudrait que cela soit :

Chr(13) & Chr(10) & "chat-script ORANGE """" ""ATT*64***4#"" TIMEOUT 10 ""CONNECT"" " _

Ce qui donne en alogrithme :

Lire fichier
Pour chaque ligne de fichier
       Si ligne contient "
       alors
       remplacer " par ""
       fin si
fin pour

Quelqu'un sait retranscrire cela en VBA ?

Polux31 · Answer

Salut,

tu ne manges jamais toi ???

essaies la fonction replace() : monTexte = Replace(ligne,""","""") ... je garantie rien, j'ai pas testé ... 

;o)

polux

Polux31 · Answer

re,

Content que tu ais trouvé ...

Pour l'autre question, oui il existe plusieurs fonctions qui permettent d'extraire une partie d'une chaîne de caractères.
Pour le numéro, si c'est d'un type entier, long ou double (décimal), il faut d'abord le convertir en chaîne de caractères.
num = Right(CStr(monNum),1)
Ici la fonction Right retourne le dernier caractère de la chaîne monNum. CStr est la fonction qui transforme une variable de type entier, long ou double en chaîne de caractère.
Pour le deuxième, c'est un peu plus compliqué, même si le principe est pratiquement le même. Comment savoir quels caractères extraire ? Y-a-t'il toujours un "-" ? si oui, il faut faire une boucle :
Public Function SearchNom (ByVal nom As String) As String
Dim i As Integer
Dim c As String
For i = Len(nom) to 1   'pour i allant de la longueur de la chaîne à 1. Ici nom = 11 caractères
    If Chr$(nom, Len(nom), i) <> "-" Then
        SearchNom = c
        Exit Function
    Else
        c = Chr$(nom, Len(nom), i) & c
    End If
Nexi i
End Function
Toujours aucune garantie que ça marche ... je ne peux pas tester ... mais ça doit pas être loin ...

Bon courage

;o)

Polux

Polux31 · Answer

salut,

Oui tu as raison ... c'est : "si extraire(nom, long(nom), i) = "-" alors" ... voilà ce que c'est de ne pas faire de test ... je pense que tu as pigé le principe ... à toi de jouer maintenant

N'oublie pas de mettre résolu ...
bon courage

;o)

Polux

Polux31 · Answer

Bonjour,

Pfffff je dois avoir besoin de repos moi .. remplace Chr$ (qui n'a rien avoir là dedans) et met Mid(DNS, Len(DNS), i) = "-" Then ....

;o)

polux

Polux31 · Answer

annule et remplace le pécédent ... vivement les vacances ^^

For i = Len(DNS) To 1 Step -1
        If Mid(DNS, i, 1) = "-" Then
            lieu = c
            Exit Function
        Else
            c = Mid(DNS, i, 1) & c
        End If
Next i

Testé et approuvé ...

;o)

polux

Polux31 · Answer

Content pour toi et désolé pour les bourdes que j'ai commises ... (c'est quand les vacances ??? ... par encore ? .. bon ok, je sors ...)

;o)

polux

[VBA] Banaliser les guillemets dans un script

7 réponses

Discussions similaires