C# / VB.NET - [VB.NET] Domande generali...

Questo topic e' stato chiuso dal moderatore.

19/04/10 12:58

Salve a tutti...
1)Come posso far andare a capo un testo? Cioè... nel mio programma ho più txtbox e con un savefiledialog creo un file dove vorrei inserire i dati immessi in ogni txtbox uno sotto l'altro... come faccio? :-?

grazie

Ultima modifica effettuata da Fr4nk94 19/04/10 13:14

aaa

19/04/10 13:32

walker93

enveroinnement.newline

aaa

19/04/10 13:40

Fabiowd1990

 
 Dim filescelto As String

        SaveFileDialog1.ShowDialog()
        filescelto = SaveFileDialog1.FileName
        IO.File.WriteAllText(filescelto, TextBox1.Text & vbCrLf & TextBox2.Text)

dove vbCrLf equivale ad una pressione di invio.

aaa

19/04/10 14:31

Fr4nk94

ok... così va a capo...
però il codice l'ho scritto così:

 Dim save As New SaveFileDialog
        save.Title = "Salva:"
        save.Filter = "File Botanical (.bot)|*.bot"
        save.InitialDirectory = Application.StartupPath & "\file\"
        save.ShowDialog()
        Try
            Dim writer As New System.IO.StreamWriter(save.FileName)
            writer.Write("Oggetto= " & txtOGGETTO.Text & vbCrLf & "Descrizione= " & txtDESCRIZIONE.Text)
            writer.Close()
            MsgBox("File salvato!")
        Catch ex As Exception

        End Try

a questo punto i file salvati mi si creano così:
es.
Oggetto= ....
Descrizione= ...

ora come faccio a dire al programma che quando deve aprire suddetto file mi deve inserire nella textbox oggetto il testo scritto dopo "oggetto= " e nella txtbox descrizione il testo dopo "Descrizione= "??

aaa

19/04/10 17:43

Fabiowd1990

Ci sono diversi modi per fare quello che chiedi.
Dato che conosci il formato in cui è scritto il file, ti conviene far così:

  

Dim _stringhe As String()

        _stringhe = Split(IO.File.ReadAllText(Application.StartupPath & "\a.bot"), vbCrLf)
        For i = 0 To _stringhe.Count - 1
            If _stringhe(i).Contains("Oggetto=") Then
                TextBox1.Text = _stringhe(i).Replace("Oggetto=", "")
            End If
            If _stringhe(i).Contains("Descrizione=") Then
                TextBox2.Text = _stringhe(i).Replace("Descrizione=", "")
            End If
        Next

aaa

19/04/10 17:54

Fr4nk94

mmmmm... mi spiace ma non funziona...
A me servirebbe di creare nel file che salvo delle specie di variabili, di cui la varibile oggetto corrisponde ad un determinato testo scritto in una determinata txtbox
quindi se nel programma nella txtbox OGGETTO c'è scritto "Ciao", quando lo salvo nel file che si creerà avrò una riga in cui ci sarà scritto "Oggetto= Ciao".
Il mio problema ora è:
quando apro con il mio programma attraverso un openfiledialog il file che ho creato prima, vorrei che nella txtbox OGGETTO compaia la scritta "Ciao" (senza la parola "Oggetto= "

, come fo??? :-?

aaa

19/04/10 17:59

Fabiowd1990

Funziona, l'ho provato...
Forse hai dimenticato di rinominare le textbox, dato che io le avevo chiamate Textbox1, e Textbox2, tu TxtOGGETTO e TxtDescrizione...
Se fosse questo il caso, ti ho rinominato i campi...

  

Dim _stringhe As String()

        _stringhe = Split(IO.File.ReadAllText(Application.StartupPath & "\a.bot"), vbCrLf)
        For i = 0 To _stringhe.Count - 1
            If _stringhe(i).Contains("Oggetto=") Then
                TxtOGGETTO.Text = _stringhe(i).Replace("Oggetto=", "")
            End If
            If _stringhe(i).Contains("Descrizione=") Then
                TxtDESCRIZIONE.Text = _stringhe(i).Replace("Descrizione=", "")
            End If
        Next

aaa

19/04/10 18:40

Fr4nk94

hai ragione funziona... scusami è che mi ero dimenticato di sostituire la parte di codice Application.startuppath & "\a.bot".
Ora va... :k: