Suppression caractère dans fichier .txtRésolu

Question

Bonjour à toutes et tous,

Voici ma question, j'ai un fichier texte dans lequel j'ai des guillements (") que je voudrais supprimer avant d'insérer les données dans ACCESS.

Comment faire une recherche à partir de VB du caractère dans le fichier .txt, puis de le supprimer ?

Sachant que je n'ai qu'une seule ligne par fichier .txt.

Merci d'avance !

econs · Accepted Answer

Dim s As String
Dim s1 As String
Dim numFile As Long

numFile=FreeFile
Open "C:\repertoire\fichier.txt" For Input As #numFile
Line Input #numFile, s
Close #numFile
s1 = Replace (s,"""","",vbTextCompare)
numFile=FreeFile
Open "C:\repertoire\fichier.txt" For Output As #numFile
Print #numFile, s1
Close #numFile


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

cs_bultez · Answer

bonjour,
ouvrir le fichier
tant que ce n'est pas la fin de fichier
        lire la ligne => variable string
        un petit replace, dans cette variable, de chr$(34) par rien
        faire ce qu'il faut avec variable résultat
fin de tant que
fermer le fichier
Cordialement    Bul. [Site] [[mailto:marcel.Bultez@Tiscali.fr Mail]]

Suppression caractère dans fichier .txt

2 réponses

Discussions similaires