[VB] upgrade programma help please

[soldicolweb]

premetto che ho una piccola esperienza di programmazion con visual basic quindi non bastonatemi subito please

Dunque dovrei modificare un sorgente vb precedentemente creato.

Si tratta di un programma che genera pagine html automaticamente.

Le ottimizzazioni che voglio fare a questo programma sono le seguenti:

1. il programma dovrebbe acquisire codice html da un file scelto
e in questo caso sarebbe utile questo codice

Open TPath & "\nomefile.htm" For Output As #1

A questo punto come leggo il contenuto del file?

Quale funzione lo può leggere correttamente trasformando i doppi apici " in " & Chr(34) & " e gli a capo in " & Chr(13) & " ??

Purtroppo visual basic risente di questi problemi.

2. una volta letto il contenuto e posto in una variabile temporanea vorrei che questo contenuto venisse scritto in un file

e quindi utilizzo

Open TPath & "\nomefile2.htm" For Output As #1
Print #1, Temp
Close #1

dove Temp è la variabile che possiede il contenuto del file letto precedentemente.

Spero mi possiate aiutare sennò

[grido82]

Per leggere da file:

Function fGetFileAsText(ByVal sFile As String) As String
Dim iFn As Integer
Dim sTemp As String

iFn = FreeFile
Open sFile For Input As #iFn
sTemp = Input(FileLen(sFile), #iFn)
Close #iFn

fGetFileAsText = sTemp

Invece per salvare su file:

Function fSaveTextAsFile(ByVal sText As String, ByVal sFile As String)
Dim iFn As Integer

iFn = FreeFile
fCreateTree (fGetPath(sFile) & "\")
Open sFile For Output As #iFn
Print #iFn, sText
Close #iFn

End Function

Per quanto riguarda la sostituzione dei caratteri, ti conviene usare semplicemente dei replace.

Spero di aver capito cosa chiedevi.

[grido82]

La seconda nonha motivo di essere dichiarata funzione, è una sub:

Sub fSaveTextAsFile(ByVal sText As String, ByVal sFile As String)
Dim iFn As Integer

iFn = FreeFile
fCreateTree (fGetPath(sFile) & "\")
Open sFile For Output As #iFn
Print #iFn, sText
Close #iFn

End Sub

[soldicolweb]

Ti ringrazio quello che mi manca sono i replace, ora vedo se visual basic fa storie ad applicare tali funzioni.

Devo trovare il modo per cui mi scorra tutto il contenuto e mi vada a sostituire doppi apici e a capo, mi hanno detto che prende tutta la cpu e ram per fare queste operazioni, magari esistono modi semplici che non sfruttino tutte le risorse del computer.

[grido82]

Temp = fGetFileAsText(TPath & "\nomefile.htm")
Temp = Replace(Temp,"""",Chr(34))
Temp = Replace(Temp,vbCrLf,Chr(13))

alla fine dovresti avere temp con le sostituzioni che volevi.

[soldicolweb]

Ok provo.
Grazie