[vb express 2008] scrivere dentro un preciso campo in un file di testo

[frank095]

Dim inputString As String = Codice_barraTextBox.Text
                Dim inputString2 As String = DescrizioneTextBox.Text
                Dim inputString3 As String = PrezzoVenditaTextBox.Text
                Dim inputString4 As String = OffertaTextBox.Text
                FileOpen(1, (Application.StartupPath + "\" + "Frontalini.eti"), OpenMode.Append)
                Print(1, inputString, SPC(8))
                Print(1, inputString2)
                Print(1, inputString3, SPC(7))
                Print(1, inputString4, vbCrLf)
                FileClose(1)

vorrei che queste variabili scrivessero dentro un preciso campo di un file testo e che se questo fosse superato la scrittura si di una variabile si fermasse per continuare a scirvere quella seguente.. qualcuno sa come si fa?

[optime]

Originariamente inviato da frank095

vorrei che queste variabili scrivessero dentro un preciso campo di un file testo e che se questo fosse superato la scrittura si di una variabile si fermasse per continuare a scirvere quella seguente.. qualcuno sa come si fa?

???? non ho capito molto... puoi fare un esempio pratico?

[frank095]

vorrei che si possibile impostare la lunghezza e il punto in cui possono scrivere queste variabili..
per esempio:
se a input string metto il valore ciao voglio che "ciao" sia scritto dal posto(0,4) e se però io imposto come lunghezza massima 10, anche se la parola è più corta il programma aggiunga gli spazi fino ad arrivare a (0,10)

[optime]

continuo a non capire, comunque prova a guardare questa funzione per PADdare

variabile="ciao"
fissa=variabile.PadRight(10, " "c)

>>> fissa diventa "ciao "

[frank095]

ho usato già padright ma il problema è che se anche si supera la lunghezza stabilita il programma continua a scrivere. in sostanza voglio stabilire un limite massimo di scrittura. quando si arriva a quel limite anche se il testo della textbox è più lungo il programma deve troncare la scrittura nel file di testo
es: se io impongo alla variabile inputstring una sorta di lunghezza massima uguale a 9

vorrei che se io scrivessi "calciatore" nella textbox lui mi scrivesse "calciator" nel file di testo e se io scrivessi "volare" nella textbox lui mi scrivesse "volare " (+ 3 space) nel file di testo

[oregon]

Come più volte ti ho (inutilmente) ripetuto non si programma senza studiare almeno le basi.

Quello che chiedi è elementare ... bisogna solo aver studiato un minimo le stringhe ...

Scoprirai che, oltre al PadRight c'è anche il metodo SubString

[frank095]

avevo usato anche questo ma sbagliavo qualcosa..

 Dim inputString As String = Codice_barraTextBox.Text

                Dim inputString2 As String = DescrizioneTextBox.Text

                Dim inputString3 As String = PrezzoVenditaTextBox.Text

                Dim inputString4 As String = OffertaTextBox.Text
                Dim par As Char
                par = Convert.ToChar(" ") ' INDICA COSA METTERE SE NON SI ARRIVA ALLA LUNGHEZZA SPECIFIATA DEL "PADRIGHT
                FileOpen(1, (Application.StartupPath + "\" + "Frontalini.eti"), OpenMode.Append)
                Print(1, inputString.Substring(0, 13), SPC(8))
                Print(1, inputString2.Substring(21, 51))
                Print(1, inputString3.Substring(51, 54), SPC(6))
                Print(1, inputString4, vbCrLf)

                FileClose(1)

mi da l'errore: Index e length devono fare riferimento a una posizione nella stringa. Nome parametro: length
dove sbaglio ??

[oregon]

Devi usare la Substring e la PadRight ... tutti e due i metodi ...

Parti da una stringa di esempio

Dim s As String = "ciao"

e scrivi la linea di codice che ti serve a prescindere dal tuo codice.

[frank095]

 
Dim inputString As String = Codice_barraTextBox.Text

                Dim inputString2 As String = DescrizioneTextBox.Text

                Dim inputString3 As String = PrezzoVenditaTextBox.Text

                Dim inputString4 As String = PrezzoVenditaTextBox.Text
                Dim par As Char
                par = Convert.ToChar(" ") ' INDICA COSA METTERE SE NON SI ARRIVA ALLA LUNGHEZZA SPECIFIATA DEL "PADRIGHT
                FileOpen(1, (Application.StartupPath + "\" + "Frontalini.eti"), OpenMode.Append)
                Print(1, inputString.Substring(0, 13).PadRight(13), SPC(8)) 'aggiunge tanti caratteri a destra quanto ne sono specificati
                Print(1, inputString2.Substring(22, 51).PadRight(51))
                Print(1, inputString3.Substring(51, 54).PadRight(54), SPC(6))
                Print(1, inputString4, vbCrLf)
                FileClose(1)

sempre stesso errore.. mi sa che non ho capito cosa volessi dire.. la cosa strana è che mi evidenzia solo inputstring2 mentre il primo lo passa..

[oregon]

Prima la PadRight e dopo la SubString ... e non al contrario.