Richiesta d'aiuto per ACcess '97

venerdì 07 aprile 2006 - 10.52

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

luvigge Profilo | Newbie

3 messaggi | Data Invio: ven 7 apr 2006 - 10:52

Buongiorno a tutti, sono nuovo da queste parti e trovo molto interessante ed utile questo sito.
Lavoro da poco in ACCESS '97 e non lo conosco bene. Il mio problema è che devo leggere un file sequenziale di nome "x400.txt", e sostituire per ogni record, alla casella 51, la lettera "M" con la lettera "C"....mi potete aiutare?

Grazie
Luigi

Ciciu Profilo | Senior Member

233 messaggi | Data Invio: mer 19 apr 2006 - 19:12

>Lavoro da poco in ACCESS '97 e non lo conosco bene. Il mio problema
>è che devo leggere un file sequenziale di nome "x400.txt", e
>sostituire per ogni record, alla casella 51, la lettera "M" con
>la lettera "C"....mi potete aiutare?

Ciao Luigi.
Qual'e' esattamente il Tuo problema ? Il file devi acquisirlo e metterlo in una table, oppure vuoi codificare una macro che faccia questo mestiere direttamente sul file ?
Ciao - Fabio
Fabio G

luvigge Profilo | Newbie

3 messaggi | Data Invio: gio 27 apr 2006 - 11:18

Ciao,
il file è su una directory, io devo aprirlo, leggere ogni record e direttamente sul file correggere alla posizione 51 la lettera "M" con la lettera "C".

Grazie

Luigi

Ciciu Profilo | Senior Member

233 messaggi | Data Invio: gio 27 apr 2006 - 12:58

La cosa più semplice che puoi fare è aprire il file sorgente in lettura, ed aprirne uno, temporaneo, in scrittura.
Leggerai ogni riga del file sorgente, effettuerai la sostituzione, e la scriverai sul file temporaneo.
Al termine, copierai il file temporaneo su quello sorgente.

In poche parole :

Sub prova()

Dim tStr As String

Open "c:\src.txt" For Input As #1
Open "c:\temp.txt" For Output As #2
While Not EOF(1)
Input #1, tStr
tStr = Mid(tStr, 1, 49) & "M" & Mid(tStr, 51)
Print #2, tStr
Wend
Close #1
Close #2

' A questo punto non Ti resta che copiare temp.txt su src.txt
FileCopy "c:\temp.txt", "c:\src.txt"

End Sub

Fabio G

luvigge Profilo | Newbie

3 messaggi | Data Invio: gio 27 apr 2006 - 14:04

Grazie Fabio, sei stato molto gentile. Appena riesco lo provo e poi ti dico

Luigi

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !