remplacer code ascii dans fichier

Question

Salut

voila voila j'ai une ptite question :

comment remplacer une valeur ascii par une autre dans un fichier texte ??
je precise que lorsque j'utilise Line Input, le contenu de mon fichier se
retrouve sur une seule ligne,
donc il ne contient pas de saut de ligne...

Mon exemple :

2a 2a 2a 2a 0a 21 0a 21 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 20

je souhaite remplacer "0a" par : "0d 0a"

j'ai essayé ca :

' Ouverture du fichier en lecture
Open NomFichierASP For Input As #FileNumberASP
' Lecture de la 1ere ligne
Line Input #FileNumberASP, VL_Ligne
' Remplacement de "0a" par "0d 0a)
VL_Ligne_Mod = Replace(VL_Ligne, Asc("0a"), Asc("0d0a"))
' Fermeture du fichier
Close #FileNumberASP
' Reouverture du fichier en ecriture
Open NomFichierLog For Output Access Write As #FileNumberASP
' Ecriture de la ligne
Print #FileNumberASP, VL_Ligne_Mod
' Fermeture du fichier
Close #FileNumberASP

Et ca marche pas du tout...

Voila ca a l'air tout simple et tellement galere pour moi...

Thhaannxx a tout ceux qui pourront m'aider...

Renfield · Answer

Dim FileSlot As Byte
    Dim Buffer As String
    
    FileSlot = FreeFile
    Open NomFichierASP  For Input Access Read As #FileSlot
    Buffer = Input$(LOF(FileSlot), FileSlot)
    Close #FileSlot
    
    Buffer = Replace(Buffer, Asc("0a"), Asc("0d0a"))
    
    FileSlot = FreeFile
    Open NomFichierLog For Output As #FileSlot
    Print #FileSlot, Buffer
    Close #FileSlot


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

cs_rene38 · Answer

Salut

Attention .Asc("x") le code ascii de x un nombre compris entre 0 et 255   et  x est UN caractèresi bien que Asc("0a") Asc("0d0a") Asc("0") = 48 = 30H

D'autre part, Replace travaille sur des CHAINES, pas sur des nombres.

Enfin, ton fichier ne contient pas 
2a 2a 2a 2a 0a 21 0a 21 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 20

mais 
****
!
! ____________

2a 2a 2a 2a 0a 21 0a ... n'est que la représentation hexadécimale du contenu du fichier
Les 0a sont des sauts de ligne (sans retour chariot)

Ta ligne Replace doit donc être :

VL_Ligne_Mod = Replace(VL_Ligne, Chr(&H0a), Chr(&H0d) & Chr(&H0a))

yuyugs84 · Answer

ooaaaahhhh genial...super...trop fort les gars...ca marche impec...

merci merci merci...paske la je commencais a desesperer...

Thhaannxx

Remplacer code ascii dans fichier

3 réponses

Discussions similaires