[AIUTO] Salvare più file

GhiccoMan

il 12 mar 2015, 19:03

40 risposte

40 Risposte - Pagina 3

GhiccoMan

Pochi posts

Iscritto da: feb, 2015

Messaggi:: 28

Re: [AIUTO] Salvare più file

25 mar 2015, 14:09

oregon ha scritto:
Quelle tre righe non sono nell'ordine corretto ... non so se ci sono problemi nel resto del codice perché non so quale sia quello attuale.

Il problema è che mi sembra che tu non sappia assolutamente che pesci prendere ... se non hai la minima idea di cosa serva una singola parola del programma, ti consiglio di non scrivere più codice ma dedicarti allo studio. Se il tuo scopo non è quello di studiare programmazione, allora è tutta un'altra storia.

Il codice completo è questo:

Private Sub Carica_Click(sender As System.Object, e As System.EventArgs) Handles Salva.Click
        Dim testo As String
        Dim Flusso As FileStream 

        Dim path As String
        Flusso = New FileStream(("C:\Users\Ghicco\Documents\Visual Studio 2010\Projects\MyBrowser\MyBrowser\Cronologia.txt"), FileMode.OpenOrCreate, FileAccess.Read)
  
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog1.FileName

            Dim File_Input As New StreamReader(Flusso)
            testo = File_Input.ReadToEnd
            RichTextBox1.Text = testo
            File_Input.Close()

        End If
    End Sub

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: [AIUTO] Salvare più file
25 mar 2015, 14:23
E quindi?
G
GhiccoMan
Pochi posts
Iscritto da
feb, 2015
Messaggi:
28
Re: [AIUTO] Salvare più file
25 mar 2015, 14:42
oregon ha scritto:
E quindi?
Ti ho fornito il codice cosi almeno puoi dirmi se ci sono degli errori
ed aiutarmi a capire come risolverli
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: [AIUTO] Salvare più file
25 mar 2015, 14:47
Ma scusa, l'hai provato?? Dovresti essere tu a dirmi se funziona, se noti qualcosa di strano, fare delle ipotesi ...

Il fatto che tu non faccia nulla, pur essendo un tuo programma e non mio, mi lascia perplesso per non dire altro ...

Qui non si scrivono programmi pronti per altri, chiaro?
G
GhiccoMan
Pochi posts
Iscritto da
feb, 2015
Messaggi:
28
Re: [AIUTO] Salvare più file
26 mar 2015, 02:39
oregon ha scritto:
Ma scusa, l'hai provato?? Dovresti essere tu a dirmi se funziona, se noti qualcosa di strano, fare delle ipotesi ...

Il fatto che tu non faccia nulla, pur essendo un tuo programma e non mio, mi lascia perplesso per non dire altro ...

Qui non si scrivono programmi pronti per altri, chiaro?

Certo che l ho provato
e sinceramente è già da un po che dico che non mi funziona,
infatti sto chiedendo gentilmente un aiuto,
non pretendo sicuramente il codice già pronto, e comunque non è vero che
non sto facendo niente per risolverlo, altrimenti non ero qua a "perdere" tempo
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: [AIUTO] Salvare più file
26 mar 2015, 10:02
Nel codice apri un file in lettura indicando il percorso assoluto (Flusso)

Poi fai scegliere il nome del file e apri il file scelto (File_input)

A questo punto ti chiedo ... quale dei due file devi leggere?? Ti sei accorto che fai questa cosa??
G
GhiccoMan
Pochi posts
Iscritto da
feb, 2015
Messaggi:
28
Re: [AIUTO] Salvare più file
26 mar 2015, 12:31
oregon ha scritto:
Nel codice apri un file in lettura indicando il percorso assoluto (Flusso)

Poi fai scegliere il nome del file e apri il file scelto (File_input)

A questo punto ti chiedo ... quale dei due file devi leggere?? Ti sei accorto che fai questa cosa??

Devo leggere il File_input e riportarlo nella RichTextBox1

oregon

Super Famoso

Iscritto da: nov, 2011

Messaggi:: 21595

Re: [AIUTO] Salvare più file

26 mar 2015, 16:56

Quindi devi eliminare tutta la prima riga con Flusso ... a questo punto il codice diventa


        Dim testo As String
        Dim path As String

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog1.FileName

            Dim File_Input As New StreamReader(path)
            testo = File_Input.ReadToEnd
            RichTextBox1.Text = testo
            File_Input.Close()
        End If

e questo funziona

GhiccoMan

Pochi posts

Iscritto da: feb, 2015

Messaggi:: 28

Re: [AIUTO] Salvare più file

26 mar 2015, 18:47

oregon ha scritto:

Quindi devi eliminare tutta la prima riga con Flusso ... a questo punto il codice diventa


        Dim testo As String
        Dim path As String

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog1.FileName

            Dim File_Input As New StreamReader(path)
            testo = File_Input.ReadToEnd
            RichTextBox1.Text = testo
            File_Input.Close()
        End If

e questo funziona

Grazie del codice,

Una curiosità.... può darsi che funzioni anche cosi??:

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Path = OpenFileDialog1.FileName



            
           Dim flusso As FileStream
            flusso = New FileStream(Path, FileMode.OpenOrCreate, FileAccess.Read)
            Dim file_input As New StreamReader(flusso)

            RichTextBox1.Text = file_input.ReadToEnd
            file_input.Close()

        End If

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21595
Re: [AIUTO] Salvare più file
26 mar 2015, 19:50
Ma il codice che ti ho suggerito funziona? Usalo !

Per me questo lunghissimo thread è finito ... buon lavoro ...
G
GhiccoMan
Pochi posts
Iscritto da
feb, 2015
Messaggi:
28
Re: [AIUTO] Salvare più file
26 mar 2015, 20:26
oregon ha scritto:
Ma il codice che ti ho suggerito funziona? Usalo !

Per me questo lunghissimo thread è finito ... buon lavoro ...

Certo che il codice funziona..... quella era solo una mia curiosità
volevo solo sapere se poteva funzionare anche quello
comunque sono andato sul sicuro e ho usato il tuo...

Grazie

Devi accedere o registrarti per scrivere nel forum

40 risposte