[VB6] Come rimuovere un carattere speciale da un file di testo?

Question

Ciao devo lavorare un file di testo mettendo su un'unica riga tutto il suo contenuto.
Lavoro il file nel seguente modo

1.  Open gblFileSelezionatoTemp For Input As #3

2.      Do While Not EOF(3)

3.          Line Input #3, rigaXml

4.         

5.          fileCom = fileCom & rigaXml

6.     

7.      Loop

8.      Close #3

ma la prima riga termina con un carattere di ritorno a capo(presumo) che è il seguente  []
Infatti se apro il file dopo averlo lavorato trovo la prima riga e la seconda contenente tutte le restanti righe del file in successione. Aprendo il file con Word vedo che al termine della seconda riga c’è il simbolo di interruzione riga  ¶
Come posso risolvere questo problema?

ho provato con

1.  Open gblFileSelezionatoTemp For Input As #3

2.      Do While Not EOF(3)

3.          Line Input #3, rigaXml

4.         

5.          temp = rigaXml

6.         

7.          temp = Trim(Replace$(temp, vbCrLf, ""))

8.          fileCom = fileCom & temp

9.     

10.     Loop

11.     Close #3

ma il problema c'è ancora.
Spero di essere stato chiaro.
Grazie  a chiunque prova a darmi una mano.

Ciao

Answer 1

Ciao devo lavorare un file di testo mettendo su un'unica riga tutto il suo contenuto.
Lavoro il file nel seguente modo

<cut>

ma il problema c'è ancora.
Spero di essere stato chiaro.
Grazie  a chiunque prova a darmi una mano.

Ciao

Il codice qui sotto apre un file di testo, sostituisce gli *a capo* con un trattino e mostra il risultato in una MsgBox:

Public Sub m()

On Error GoTo RigaErrore

    Dim objFSO As Object
    Dim objFile As Object
    Dim sTemp As String
    Dim s As String

    Set objFSO = CreateObject( _
        "Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile( _
        "C:\Prova\abc.txt", 1)
   
    s = Replace(objFile.ReadAll, vbNewLine, "-")
   
    MsgBox s

RigaChiusura:
    Set objFSO = Nothing
    Set objFile = Nothing
    Exit Sub

RigaErrore:
    MsgBox Err.Number & vbNewLine & Err.Description
    Resume RigaChiusura

End Sub

Puoi provare creando un file di testo e poi puntando a quel file con la routine.

Il file di testo che apri tu, da dove proviene? Sei sicuro che non ci sia un carattere diverso?

Grazie.

---

Mauro Gamberini - Microsoft© MVP(Excel)
http://www.maurogsc.eu/

Answer 2

Ciao Cavenaghi,

Riesci ad aggiornarci sul thread? Ti ha aiutato quanto suggerito da Mauro?

---

Irina Turcu - Microsoft

Tips & Tricks - Forum MSDN

Questo contenuto è distribuito “as is” e non implica alcuna responsabilità da parte di Microsoft. L'azienda offre questo servizio gratuitamente, allo scopo di aiutare gli utenti e approfondire la loro conoscenza dei prodotti e tecnologie Microsoft.