Newsgroup: it.comp.lang.visual-basic
Titolo: formattazione

Ringrazio tutti i suggerimenti giunti finora, ivi inclusi quelli
approssimativi o APPARENTEMENTE errati che cmq sono stati utili.
Adesso, sempre in materia di editor, ho un ulteriore problema di principio.
Il testo importato nella TextBox come deve essere formattato perché
l'oggetto (TextBox) identifichi correttamente quando il testo originale va a
capo?
Nel senso: fino a questo momento, il programmillo che ho implementato va
bene per le prose, ma non va bene per i versi.
Sueggerimenti?
Conversazione0

 quando il testo originale va a capo?
Intendi questo  ?
text1.text = "prima riga" & vbCrLf & "seconda riga" & vbCrLf & "terza riga"
Puoi usare, a proposito di SelText, anche questo sistema:
text1.SelStart = len(text1.text)
text1.seltext =vbCrLf & "Riga da aggiungere in fondo"
Bye, G.

 ha scritto nel messaggio
news:bqb384$210jsg$1...@ID-108681.news.uni-berlin.de...


  con la proprietà MultiLine.
Oh, be', allora c'è qualcosa che non va
a) in come leggi il testo da file, oppure
b) in come lo inserisci nella textbox.
Se non stai parlando di testi lunghi (e in ogni caso più di 64K
di roba nella TextBox non ci entrano neanche se spingi forte ;-)  )
prova ad usare questo sistema:
    Dim strTesto As String
    Dim FileLibero As Integer
    FileLibero = FreeFile
    Open "<nome del file da aprire>" For Input As #FileLibero
    strTesto = Input(LOF(FileLibero), FileLibero)
    Close FileLibero
    Text1.Text = strTesto
Bye, G.

 ha scritto nel messaggio
news:bqb6oo$1vlrv8$1...@ID-108681.news.uni-berlin.de...


 ha scritto nel messaggio
news:bqb6oo$1vlrv8$1...@ID-108681.news.uni-berlin.de...


 ma non va a capo lo stesso!
Se la Multiline=True allora non resta che un'ipotesi: Il file che leggi non
è un file di testo, ovvero le righe non sono concluse da Chr(13) & Chr(10)

 dal blocco note?
Premendo il tasto Invio.

 ha scritto nel messaggio
news:bqbfnn$21mutj$1...@ID-174464.news.uni-berlin.de...


 > eh, può darsi. Ma la domanda è: come si fa inserire Chr(13) & Chr(10)


 sbagliato il codice di apertura e/o salvataggio?:O
Primo, sarebbe ora che leggessi qualche documento in rete relativo a come si
quota in un NG (cerca "how to quote", "quoting" o simili in google).
Secondo, sarà difficile capire dov'è il problema se non posti 4 righe di
codice.
Quello che ha postato Paperino funziona.
E alternativamente puoi fare così:
    Open miofile for input as #1
    do while not eof(#1)
        Line input #1, strRiga
        Text1.SelStart = Len(Text1.Text)
        Text1.SelText = vbCrLf & strRiga
    loop
    close #1
Se il file contiene sequenze di CRFL e se la textbox è a MultiLine DEVE
andare.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Avrò mica sbagliato il codice di apertura e/o salvataggio?:O
Ecco, ci siamo. Facci vedere il codice che usi per salvare.


Private Sub mnuSalva_Click()
Call SaveFile
End Sub
Private Sub SaveFile()
Dim FileNum As Integer, Buffer As String
Buffer = Text1.Text
If filename = "" Then
    CommonDialog1.ShowSave
    filename = CommonDialog1.filename
    If filename = "" Then
        filename = OldName
        Exit Sub
    End If
End If
FileNum = FreeFile
Open filename For Output As FileNum
Print #FileNum, Buffer
Close FileNum
TextChanged = False
End Sub
Scusate per i quote

> Ecco, ci siamo. Facci vedere il codice che usi per salvare.
...
Ok, ho fatto cosě (VB6+SP5):
Ho creato un Text1 con Multiline=True, un Text2 con Multiline=True (di
dimensioni identiche a text1) e un Command1.
Dopo aver inserito il codice che segue, ho avviato e inserito in text1 delle
parole, andando ogni tanto a capo premendo il tasto Invio, poi ho cliccato
sul command1. In text2 mi vedo esattamente il testo scritto in text1.
Puoi provare anche tu, copiando pari-pari, giusto per vedere se hai dei
comportamentei diversi? Cita anche la versione di VB e SP montati.
Private Sub Command1_Click()
    Dim FileNum As Integer, Buffer As String
    Buffer = Text1.Text
    FileNum = FreeFile
    Open "C:\pippo.txt" For Output As FileNum
    Print #FileNum, Buffer
    Close FileNum
    Text2.Text = ""
    FileNum = FreeFile
    Open "C:\pippo.txt" For Input As FileNum
    Text2.Text = Input(LOF(FileNum), FileNum)
    Close FileNum
End Sub

 comportamentei diversi? Cita anche la versione di VB e SP montati.
Fatto! Funziona.
Ho VB5 ma non so che cosa è SP.
Risolto tutto, grazie a tutti e scusate ancora per i quote.
Conversazione0

 Risolto tutto, grazie a tutti e scusate ancora per i quote.
Embè?! Non ci dici qual era il problema? :-(


Se l'avessi capito, ve lo direi volentieri!!!
E' che ho preso vari pezzi di codice in giro e li ho assemblati con gli
oggetti per come mi sembrava dovessero funzionare, e in effetti la strategia
sembra giusta. Adesso mi studio il codice per intero, perchè ci dev'essere
qualcosa che m'è sfuggito nelle dichiarazioni generali. In effetti, i codici
dei singoli oggetti, tranne cavilli, parevano tutti corretti anche per
quanto suggerito in questo NG in questo thread e nei thread precedenti.
Ultimamente ho copiato da un source su cd rom (dal manuale di Peter Aitken
di Tecniche Nuove) le dichiarazioni generali e funziona. Boh!
Conversazione0