bonjour,
j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access,
voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire?
je ne peux pas mettre """
Open "c:\email_sacom_lignes.txt" For Input As #1
While Not EOF(1)
Line Input #1, ligne1
If fichier = "" Then
fichier = ligne1
Else
fichier = fichier & vbCrLf & ligne1
End If
Wend
Close #1
fichier = Replace(fichier, "£", "$")
Open "c:\email_sacom_lignes.txt" For Output As #1
Print #1, fichier
Close #1
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
Bonjour.
pour indiquer le caractère " il faut le doubler.
fichier = Replace(fichier, """", "X")
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"cedlannoy" <cedlannoy@hotmail.com> a écrit dans le message de
news:ei113c7nDHA.2080@TK2MSFTNGP10.phx.gbl...
bonjour,
j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access,
voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire?
je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1
While Not EOF(1)
Line Input #1, ligne1
If fichier = "" Then
fichier = ligne1
Else
fichier = fichier & vbCrLf & ligne1
End If
Wend
Close #1
fichier = Replace(fichier, "£", "$")
Open "c:email_sacom_lignes.txt" For Output As #1
Print #1, fichier
Close #1
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
cedlannoy
cela ne fonction pas il me met erreur de compilation attendu: separateur de la liste ou )
"Raymond" a écrit dans le message de news:
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
cela ne fonction pas il me met
erreur de compilation attendu: separateur de la liste ou )
"Raymond" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:OYDk2h7nDHA.2304@TK2MSFTNGP11.phx.gbl...
Bonjour.
pour indiquer le caractère " il faut le doubler.
fichier = Replace(fichier, """", "X")
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"cedlannoy" <cedlannoy@hotmail.com> a écrit dans le message de
news:ei113c7nDHA.2080@TK2MSFTNGP10.phx.gbl...
bonjour,
j'ecris ce code pour retirer un caractere dans un fichier texte depuis
un
bouton sous access,
voici l'exemple pour remplacer £ par $ , mais si le caractere a
renplacer
est le " comment faire?
je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1
While Not EOF(1)
Line Input #1, ligne1
If fichier = "" Then
fichier = ligne1
Else
fichier = fichier & vbCrLf & ligne1
End If
Wend
Close #1
fichier = Replace(fichier, "£", "$")
Open "c:email_sacom_lignes.txt" For Output As #1
Print #1, fichier
Close #1
cela ne fonction pas il me met erreur de compilation attendu: separateur de la liste ou )
"Raymond" a écrit dans le message de news:
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
cedlannoy
Sorry, cela fonction tres bien, encore merci
"Raymond" a écrit dans le message de news:
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
Sorry,
cela fonction tres bien,
encore merci
"Raymond" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:OYDk2h7nDHA.2304@TK2MSFTNGP11.phx.gbl...
Bonjour.
pour indiquer le caractère " il faut le doubler.
fichier = Replace(fichier, """", "X")
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"cedlannoy" <cedlannoy@hotmail.com> a écrit dans le message de
news:ei113c7nDHA.2080@TK2MSFTNGP10.phx.gbl...
bonjour,
j'ecris ce code pour retirer un caractere dans un fichier texte depuis
un
bouton sous access,
voici l'exemple pour remplacer £ par $ , mais si le caractere a
renplacer
est le " comment faire?
je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1
While Not EOF(1)
Line Input #1, ligne1
If fichier = "" Then
fichier = ligne1
Else
fichier = fichier & vbCrLf & ligne1
End If
Wend
Close #1
fichier = Replace(fichier, "£", "$")
Open "c:email_sacom_lignes.txt" For Output As #1
Print #1, fichier
Close #1
Bonjour. pour indiquer le caractère " il faut le doubler. fichier = Replace(fichier, """", "X")
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
bonjour, j'ecris ce code pour retirer un caractere dans un fichier texte depuis un
bouton sous access, voici l'exemple pour remplacer £ par $ , mais si le caractere a renplacer
est le " comment faire? je ne peux pas mettre """
Open "c:email_sacom_lignes.txt" For Input As #1 While Not EOF(1) Line Input #1, ligne1 If fichier = "" Then fichier = ligne1 Else fichier = fichier & vbCrLf & ligne1 End If Wend Close #1 fichier = Replace(fichier, "£", "$") Open "c:email_sacom_lignes.txt" For Output As #1 Print #1, fichier Close #1
merci
Raymond
il doit te manquer un caractère sur la ligne. affiche-la ici si tu ne vois pas .
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
cela ne fonction pas il me met erreur de compilation attendu: separateur de la liste ou )
il doit te manquer un caractère sur la ligne. affiche-la ici si tu ne vois
pas .
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"cedlannoy" <cedlannoy@hotmail.com> a écrit dans le message de
news:Ox68au7nDHA.2216@TK2MSFTNGP12.phx.gbl...
cela ne fonction pas il me met
erreur de compilation attendu: separateur de la liste ou )
il doit te manquer un caractère sur la ligne. affiche-la ici si tu ne vois pas .
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"cedlannoy" a écrit dans le message de news:
cela ne fonction pas il me met erreur de compilation attendu: separateur de la liste ou )