> Pensi sia fattibile?
Certo che sì! ;-)
> Sub esempioLoadSaveFile
> Dim FileChannel as Integer ' serve a qualcosa?
Un refuso? ^_^
> pathfile = "c:\prova.txt"
> pathfile2 = "c:\prova2.txt"
> pathfile =converttourl(pathfile)
> pathfile2 =converttourl(pathfile2)
Forse avresti dovuto dirgli di aprirli questi file!! ;-)
In pratica dovevi rimpiazzare le rispettive "FilePath" del codice qui
sotto con "pathfile" e "pathfile2".
> sCRLF = CHR(13) & CHR(10) 'Serve per andare a capo
> 'Apre il file da cui devi leggere
> oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
> If oUcb.Exists(FilePath) Then
> oInputStream =
> createUnoService("com.sun.star.io.TextInputStream")
> oInputFile = oUcb.OpenFileReadWrite(FilePath)
> oInputStream.SetInputStream(oInputFile.GetInputStream)
> End If
>
> 'Apre il file in cui devi scrivere
> oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
> oOutputStream = createUnoService("com.sun.star.io.TextOutputStream")
> If oUcb.Exists(FilePath) Then
> oUcb.Kill(FilePath)
> oOutputFile = oUcb.OpenFileReadWrite(FilePath)
> oOutputStream.SetOutputStream(oOutputFile.GetOutputStream)
Questo è un mio errore: le due righe sopra andavano fuori dal blocco "IF"...
> End If
> '#########################################################
> While Not oInputStream.IsEOF 'SI BLOCCA QUI!
> ' VARIABILE NON IMPOSTATA...
Per forza, non avevi aperto alcun file!!!! ;-)
> 'Do questo credo fosse un refuso
> 'Qui ci fai quel che devi in qualche modo
> 'E metti tutto, ad esempio, in sLineaDaScrivere
> While LettoTuttoQuelloCheServe '?????
Questo era più che altro "un concetto", non vero codice...
Te l'avevo detto che non l'avevo provata!! ;-)
Beh, ad ogni modo prova a vedere se il codice nel txt in allegato fa
quello che ti serve.
A me sembra di sì.
Ciao!
Emanuele.
Sub esempioLoadSaveFile
Dim oInputFile as Object
Dim oOutputStream as Object
Dim oStreamString as Object
Dim oUcb as Object
Dim sCRLF as String
Dim oInputStream as Object
Dim oOutputFile as Object
dim sLineaLetta as string
Dim sLineaDaScrivere as string
Dim sInputFilePath as string
Dim sOutputFilePath as string
sInputFilePath = converttourl("c:\prova.txt")
sOutputFilePath = converttourl("c:\prova2.txt")
sCRLF = CHR(13) & CHR(10) 'Serve per andare a capo
'Apre il file da cui devi leggere
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
If oUcb.Exists(sInputFilePath) Then
oInputStream =
createUnoService("com.sun.star.io.TextInputStream")
oInputFile = oUcb.OpenFileReadWrite(sInputFilePath)
oInputStream.SetInputStream(oInputFile.GetInputStream)
End If
'Apre il file in cui devi scrivere
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oOutputStream = createUnoService("com.sun.star.io.TextOutputStream")
If oUcb.Exists(sOutputFilePath) Then
oUcb.Kill(sOutputFilePath)
End If
oOutputFile = oUcb.OpenFileReadWrite(sOutputFilePath)
oOutputStream.SetOutputStream(oOutputFile.GetOutputStream)
Do While Not oInputStream.IsEOF
sLineaDaScrivere = ""
Do
sLineaLetta = oInputStream.ReadLine
sLineaDaScrivere = sLineaDaScrivere & "@" &
right(sLineaLetta, len(sLineaLetta) - 2)
Loop While Not (Left(sLineaLetta, 2) = "@V")
oOutputStream.WriteString(sLineaDaScrivere & sCRLF)
Loop
oOutputStream.CloseOutput()
oInputStream.CloseInput()
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
