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
Jessy SEMPERE
Bonjour
Regarde du côté de la fonction : Asc()
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "FG" a écrit dans le message news: 3f8ba896$0$20173$
Bonjour,
J'ai une chaine de caractere dont je veux remplacer certains caracteres.
Dim Ligne As String Dim x As Integer
Open "C:test.txt" For Input As #1 Line Input #1, Ligne For x = 1 To Len(Ligne) MsgBox Mid(Ligne, x, 1) Next x
Comment puis-je savoir le code ascii du caractere sur lequel je me trouve
?
Merci d'avance
FG
Bonjour
Regarde du côté de la fonction :
Asc()
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"FG" <fred.godefroidt@absys.com> a écrit dans le message news:
3f8ba896$0$20173$626a54ce@news.free.fr...
Bonjour,
J'ai une chaine de caractere dont je veux remplacer certains caracteres.
Dim Ligne As String
Dim x As Integer
Open "C:test.txt" For Input As #1
Line Input #1, Ligne
For x = 1 To Len(Ligne)
MsgBox Mid(Ligne, x, 1)
Next x
Comment puis-je savoir le code ascii du caractere sur lequel je me trouve
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "FG" a écrit dans le message news: 3f8ba896$0$20173$
Bonjour,
J'ai une chaine de caractere dont je veux remplacer certains caracteres.
Dim Ligne As String Dim x As Integer
Open "C:test.txt" For Input As #1 Line Input #1, Ligne For x = 1 To Len(Ligne) MsgBox Mid(Ligne, x, 1) Next x
Comment puis-je savoir le code ascii du caractere sur lequel je me trouve
?
Merci d'avance
FG
Zoury
Salut Fred! :O)
Pourquoi ne pas utiliser la fonction Replace()? Et si tu travailles sur un fichier texte, comme ça semble être le cas, tu seras peut-être intéresser par ma classe CFile, elle ne coute que rien. ;O)
Regarde cette récente discussion sur le sujet, elle devrait t'intéresser : http://groups.google.com/groups?selm=%23IHm9FnjDHA.1072%40TK2MSFTNGP09.phx.gbl
Merci de poster les réponses au groupe afin d'en faire profiter à tous "FG" wrote in message news:3f8ba896$0$20173$
Bonjour,
J'ai une chaine de caractere dont je veux remplacer certains caracteres.
Dim Ligne As String Dim x As Integer
Open "C:test.txt" For Input As #1 Line Input #1, Ligne For x = 1 To Len(Ligne) MsgBox Mid(Ligne, x, 1) Next x
Comment puis-je savoir le code ascii du caractere sur lequel je me trouve
?
Merci d'avance
FG
Salut Fred! :O)
Pourquoi ne pas utiliser la fonction Replace()? Et si tu travailles sur un
fichier texte, comme ça semble être le cas, tu seras peut-être intéresser
par ma classe CFile, elle ne coute que rien. ;O)
Regarde cette récente discussion sur le sujet, elle devrait t'intéresser :
http://groups.google.com/groups?selm=%23IHm9FnjDHA.1072%40TK2MSFTNGP09.phx.gbl
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"FG" <fred.godefroidt@absys.com> wrote in message
news:3f8ba896$0$20173$626a54ce@news.free.fr...
Bonjour,
J'ai une chaine de caractere dont je veux remplacer certains caracteres.
Dim Ligne As String
Dim x As Integer
Open "C:test.txt" For Input As #1
Line Input #1, Ligne
For x = 1 To Len(Ligne)
MsgBox Mid(Ligne, x, 1)
Next x
Comment puis-je savoir le code ascii du caractere sur lequel je me trouve
Pourquoi ne pas utiliser la fonction Replace()? Et si tu travailles sur un fichier texte, comme ça semble être le cas, tu seras peut-être intéresser par ma classe CFile, elle ne coute que rien. ;O)
Regarde cette récente discussion sur le sujet, elle devrait t'intéresser : http://groups.google.com/groups?selm=%23IHm9FnjDHA.1072%40TK2MSFTNGP09.phx.gbl
