[VB.NET] Open File, Save File, Common Dialog

[sergiobarbi]

Ciao ragazzi!
Sto cercando di passare da VB6 a VB2008, ma è dura!!!! Sono in difficoltà solo per leggere un file stringa dopo stringa, e salvare queste stringhe... Ma come si fa? E poi esiste in VB 2008 un analogo del Common Dialog di VB6? E come cavolo si chiama? Ho provato a leggere le istruzioni, ma le MSDN mi sembrano una cosa per pochi eletti. Con VB6 bastavano poche righe di codice... ora chi ci capisce qualcosa è bravo!

Per fare qualche esempio semplice, questo codice VB6 come devo riscriverlo in VB2008 perchè mi funzioni?
-----------------------------------------------------------------
Private Sub Command1_Click()

Dim aprofile, linea(5000) As String, x As Integer



aprofile = "c:\windows\desktop\prova.txt"

x = 0

Open aprofile For Input As #1

Do Until EOF(1)

Line Input #1, linea(x)

Text1.Text = Text1.Text + linea(x) + vbCrLf
Q e
Loop

Close #1



End Sub

-----------------------------------------------------------------
Private Sub Command2_Click()

Dim j As Integer
Open scrivoFile For Append As #1

For j = 1 To x

Print #1, linea(x)

Next j

Close #1

End Sub



-----------------------------------------------------------------
Private Sub Command3_Click()

Dim aprofile, scrivoFile As String

' Imposta i filtri per i files

CommonDialog1.Filter = "Tutti i file (*.*)|*.*|File di testo" & _

"(*.txt)|*.txt|File batch (*.bat)|*.bat"



' Specifica il filtro predefinito.

CommonDialog1.FilterIndex = 2

15

' Visualizza la finestra di dialogo Apri.

CommonDialog1.DialogTitle = "APRI IL FILE DA APRIRE"



CommonDialog1.ShowOpen

aprofile = CommonDialog1.FileName

If aprofile = "" Then GoTo 15



10

' Visualizza la finestra di dialogo Salva

CommonDialog1.DialogTitle = "DAI UN NOME AL FILE DA SALVARE"



CommonDialog1.ShowSave

scrivoFile = CommonDialog1.FileName

If scrivoFile = "" Or scrivoFile = aprofile Then GoTo 10



Open scrivoFile For Output As #2



Open aprofile For Input As #1

'continua.....



End Sub

-----------------------------------------------------------------

Aiutatemi RAGA'!!!!!
Sergio

[gibra]

Sei partito con il piede sbagliato.

Devi imparare a conoscere e familiarizzare con il Namspace (che è vastissimo) in cui sono inclusi migliaia gli oggetti.

Forse è opportuno ricordare che VB2008 è concettualmente diverso da VB6, quindi se non ti compri un buon testo (come minimo) da studiare su VB2008 (qualsiasi testo va bene per chi inizia) ti anticipo che per te sarà durissima.

[oregon]

E soprattutto, i tempi di apprendimento (e di reale operatività) sono molto, molto piu' lunghi ...

Dovrai avere tanta pazienza prima di avere dimestichezza tale da scrivere programmi senza tanti problemi ...

[alby_mo]

Questo è più o meno il codice che devi utilizzare, fai le opportune modifiche e leggi le definizioni in msdn se non capisci che fa...

Dim openFileDialog As New OpenFileDialog()
            openFileDialog.InitialDirectory = ""
            openFileDialog.Filter = "Txt file|*txt"
            openFileDialog.FilterIndex = 1
            openFileDialog.RestoreDirectory = True
            openFileDialog.Title = "Select a txt file"
            ' Show the Dialog.
            ' If the user clicked OK in the dialog and 
            ' a .txt file was selected, open it.
            If openFileDialog.ShowDialog() = DialogResult.OK Then
                Dim strContents As String = String.Empty
                Dim objReader As StreamReader
                Try
                    objReader = New StreamReader(System.IO.Path.GetFileName(openFileDialog.FileName()))
                    'se vuoi leggere una riga
                    showTxt.Text = objReader.ReadLine()
                    'se vuoi leggere tutto il documento
                    strContents = objReader.ReadToEnd()
                    showTxt.Text = strContents
                    'chiudo lo stream
                    objReader.Close()
                Catch Ex As Exception
                    MessageBox.Show(Ex.Message)
                End Try