[VB] caricare file...

[Francis87]

ciao a tutti,

mi è venuta un'idea per fare un programmino in VB ma mi sono fermato subito all'inizio poikè non so come ovviare ad un problema:
io dovrei aprire con il mio programma una pagina web .htm (presente sul computer) e vederla come con notepad, cioè il suo codice.
poi esser capace di modificarla e salvarla...
o meglio, le modifike le fa il programma..
come faccio per aprire questo file in modalità read/write ?

[Francis87]

heh, come faccio x aprire un altro form al click su un menu??

Load nomeform ???

[Foga27News]

Rispondo prima alla 2:

Form123.Show

Per leggere e scrivere su un file fai X esempio:

Dim Contenuto as Integer
Open "C:\Pagina1.htm" for binary as #1
get #1,1,Contenuto
Close #1
Text1.multiline=true
Text1.text=Contenuto 

[Francis87]

Originariamente inviato da Foga27News
Rispondo prima alla 2:

Form123.Show

Per leggere e scrivere su un file fai X esempio:

Dim Contenuto as Integer
Open "C:\Pagina1.htm" for binary as #1
get #1,1,Contenuto
Close #1
Text1.multiline=true
Text1.text=Contenuto 

grazie 1000 ora provo...

ma come faccio invece x aprire quella finestra con Sfoglia dove selezionare un file da aprire? e come trovo il nome del file selezionato??

sono agli inizi

corregionale

[Francis87]

ok ho trovato a questo indirizzo il modo:

http://www.vbsimple.net/howto/ht_055.htm

ma come pesco fuori il nome del file selezionato???

[Francis87]

Originariamente inviato da Francis87
ok ho trovato a questo indirizzo il modo:

http://www.vbsimple.net/howto/ht_055.htm

ma come pesco fuori il nome del file selezionato???

credo di esserci riuscito così:

Private Sub mnuFileApri_Click()
 Dim myfile As String
 myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
 Dim Contenuto As Integer
 Open myfile For Binary As #1
 Get #1, 1, Contenuto
 Close #1
 txtCorpo.Text = Contenuto
End Sub 

ma non mi va bene la visualizzazione del file nel mio txtbox!! perkè apro una pagina web e mi mostra 8508 ????
devo aprirla come con notepad.... come si fa?

[Foga27News]

Originariamente inviato da Francis87
credo di esserci riuscito così:

Private Sub mnuFileApri_Click()
 Dim myfile As String
 myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
 Dim Contenuto As Integer
 Open myfile For Binary As #1
 Get #1, 1, Contenuto
 Close #1
 txtCorpo.Text = Contenuto
End Sub 

ma non mi va bene la visualizzazione del file nel mio txtbox!! perkè apro una pagina web e mi mostra 8508 ????
devo aprirla come con notepad.... come si fa?

Il tuo errore è che la funzione Get prende tanti caratteri quanto è lunga la stringa.
Devi fare così:

Private Sub mnuFileApri_Click()
 Dim myfile As String
 myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
 Dim Contenuto As Integer
 Open myfile For Binary As #1
'La stringa ora conterrà tanti spazi vuoti quanto la larghezza del file'
Contenuto=space(lof(1))
 Get #1, 1, Contenuto
 Close #1
 txtCorpo.Text = Contenuto
'Libera lo spazio'
Contenuto=""
End Sub 

:metallica

[Francis87]

ERRORE DI RUNTIME 13

tipo nn corrispondente

Contenuto = Space(LOF(1))

[Pieruccio]

Prova cosi:
Private Sub mnuFileApri_Click()
Dim myfile As String
Dim Contenuto As String
Dim f As Integer
f = FreeFile
myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
Open myfile For Input As f
Do While Not EOF(f)
Line Input #f, Contenuto
txtCorpo.Text = txtCorpo.Text & Contenuto & vbCrLf
Loop
Close #f
end sub

[Francis87]

Originariamente inviato da Pieruccio
Prova cosi:
Private Sub mnuFileApri_Click()
Dim myfile As String
Dim Contenuto As String
Dim f As Integer
f = FreeFile
myfile = ShowOpen(Me, "Pagine web (*.htm)" & vbNullChar & "*.htm")
Open myfile For Input As f
Do While Not EOF(f)
Line Input #f, Contenuto
txtCorpo.Text = txtCorpo.Text & Contenuto & vbCrLf
Loop
Close #f
end sub

:metallica :metallica

funge!!! grazie 1000!!