[VB.NET] Visualizzare testo su una sola riga caricato da file con ritorni a capo

[piero54]

ciao,
devo inserire in delle textbox del testo prelevato da un file .txt presente sul mio desktop. Tutto questo lo faccio con il seguente codice:

 RichTextBox1.Text = System.IO.File.ReadAllText("C:\Users\pippo\Desktop\relazione.txt")  
             For Each linea_di_testo As String In System.IO.File.ReadAllLines("C:\Users\pippo\Desktop\.testo.txt")

            If linea_di_testo.Contains("NOME:") Then      
          textbox1.Text = Mid(linea_di_testo, 7) 
          End If     

       If linea_di_testo.Contains("CLASSE:") Then   
             textbox2.Text = Mid(linea_di_testo, 8)    
        End If   
    
              If linea_di_testo.Contains("TESTO:") Then     
           textbox3.Text = Mid(linea_di_testo, 17, 1000)   
         End If   
       
        Next

TUTTO funziona, solo che dal textbox3 viene prelevato tutto il testo SOLO se scritto su una SOLA riga! se nello scrivere il file è stato premuto l'invio per andare a capo, tutto il testo scritto dopo essere andato a capo NON viene prelevato dal mio codice perchè è scritto su un'altra riga del file!
faccio un esemipo per spiegarmi meglio:
se nel file è scritto:
"ciao come stai?"
nel textbox3 viene caricato :"ciao come stai?"
se invece è scritto:
"ciao
come stai?"
nel textbox3 viene caricato solo :"ciao"


c'è un modo per risolvere qst problema?
oppure devo fare in modo che nel file.txt (visto che è un file che genero io dallo stesso programma in VB ) sia scritto tutto su di una riga?

questo file.txt è formato dal testo che viene editato nelle textbox(in modalità "multiline")
questo è il codice:

  Dim SALVATAGGIO_AUTOMATICO As New System.IO.StreamWriter(("C:\Users\pippo\Desktop") & "\testo.txt") 
       SALVATAGGIO_AUTOMATICO.Write("NOME: " + textbox1.Text + Environment.NewLine)  
       SALVATAGGIO_AUTOMATICO.Write("CLASSE: " + textbox2.Text + Environment.NewLine) 
       SALVATAGGIO_AUTOMATICO.Write("TESTO: " + textbox3.Text + Environment.NewLine)

ci sono impostazioni che posso dare alla textbox3 affinchè TUTTO il testo contenuto al suo interno venga scritto su una sola riga anche se chi lo scrive va a capo?

grazie
Piero

[patel]

perché per leggere il file testo.txt usi ReadAllLines e non ReadAllText ? metti tutto in una stringa e poi fai un Replace di VbLine con " "

[piero54]

non ho capito cosa intendi dire con :fai un Replace di VbLine con " " ?
ma sostituendo ReadAllLines con ReadAllText ho risolto tutto!!

GRAZIE!!!

[piero54]

non ho capito cosa intendi dire con :fai un Replace di VbLine con " " ?
ma sostituendo ReadAllLines con ReadAllText ho risolto tutto!!

GRAZIE!!!

HO detto una cazzata!!
perdono!
modificando ReadAllLines con ReadAllText
nei textbox non viene richiamato alcun testo presente sul file .txt !
quindi immagino che debba fare altro oltre alla modifica "ReadAllLines con ReadAllText"
cosa? puoi spiegarmi meglio?
ancora grazie

[patel]

Putroppo io non ho capito bene qual'è lo scopo del tuo progetto. puoi spiegare meglio e magari allegarlo zippato ?

[patel]

io intendevo questo

Dim s As String = System.IO.File.ReadAllText("C:\Users\pippo\Desktop\testo.txt")
s = s.Replace(vbNewLine, " ")
textbox3.Text = s

[piero54]

questo è il codice con il quale leggo dal file .txt e inserisco quello contenuto nel file nelle rispettive textbox!

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Call FullScreen()
        
        
        RichTextBox1.Text = System.IO.File.ReadAllText("C:\testo.txt")
        
     
        
        For Each linea_di_testo As String In System.IO.File.ReadAllLines("C:\testo.txt")


            If linea_di_testo.Contains("NOME:") Then
                textbox1.Text = Mid(linea_di_testo, 7) 
            End If
            If linea_di_testo.Contains("CLASSE:") Then
                textbox2.Text = Mid(linea_di_testo, 8)
            End If
            If linea_di_testo.Contains("MATERIA:") Then
                textbox3.Text = Mid(linea_di_testo, 9)
            End If
            If linea_di_testo.Contains("Relazione N.") Then
                textbox4.Text = Mid(linea_di_testo, 13)
            End If
            If linea_di_testo.Contains("TESTO RELAZIONE:") Then
                textbox5.Text = Mid(linea_di_testo, 17)
            End If
            If linea_di_testo.Contains("CONCLUSIONI:") Then
                textbox6.Text = Mid(linea_di_testo, 17)
            End If




        Next


    End Sub

le textbox in cui ho il problema (viene richiamato il testo fino al primo "a capo" presente sul file .txt) sono la textbox5 e la 6, perchè quui potrebbe esserci testo molto lungo e non semplici parole come negli altri campi.
ho provato ad usare il codice che mi hai passato ma credo di non aver capito dove e come usarlo, perchè la situazione è peggiorata!

NON ci sarebbe la possibilità di scrivere codice che estrapola il testo di un file .txt da una parola (prestabilita) ad un'altra parola(sempre prestabilita)?
con il cmdice

textbox5.Text = Mid(linea_di_testo, 17)

estrapolo dalla diciottesima lettera in poi per tutta la riga.
come potrei a partire dalla diciottesima lettera estrapolare tutto il testo della riga fino ad un determinato carattere (ad esempio potrei inserire nel file un simbolo particolare da usare come "fine corsa")come ad esempio $$ ?

spero di aver spiegato al meglio il problema...
grazie

[patel]

chiaramente usando il mio codice ottieni una unica stringa, quindi le tue mid non vanno bene, devi cercare le parole nella stringa ed estrarle, https://docs.microsoft.com/it-it/dot...ithin-a-string
ti avevo chiesto di allegare il progetto zippato

[piero54]

spero di averlo allegato...

[patel]

la soluzione (file.sln) non è il progetto, il progetto è tutta la cartella