[VB .NET] Formattazione Stringa

[kdcdado]

Devo crea una Stringa dove a delle posizioni predefinite devono essere inseriti i caratteri.
Per esempio: alla posizione 0 deve iniziare la parola contenuta nella variabile Pippo(variabile di tipo string) alla posizione 10 deve iniziare la parola contenuta nella variabile Pluto(Stringa)indipendentemente dalla grandezza di pippo(tra pippo e pluto ci potrebbero essere degli spazi se pippo è minore di 9 caratteri)
Come Faccio?

Scusase se la cosa è spiegata incasinando u po le cose

[web@web]

Originariamente inviato da kdcdado
Devo crea una Stringa dove a delle posizioni predefinite devono essere inseriti i caratteri.
Per esempio: alla posizione 0 deve iniziare la parola contenuta nella variabile Pippo(variabile di tipo string) alla posizione 10 deve iniziare la parola contenuta nella variabile Pluto(Stringa)indipendentemente dalla grandezza di pippo(tra pippo e pluto ci potrebbero essere degli spazi se pippo è minore di 9 caratteri)
Come Faccio?

Scusase se la cosa è spiegata incasinando u po le cose

Pippo = "Stringa A"
Pluto = "Stringa B"
dim NuovaStr as string "Testo di prova"

NuovaStr = Pippo & NuovaStr.substring(0,9) & Pluto & NuovaStr.substring(10, (NuovaStr.Lenght)

Il risultato di NuovaStr sarà
Stringa ATesto di Stringa Bprova


Spero di aver capito bene cosa ti serviva

[kdcdado]

Io intendevo così:

Sapendo gia che Pippo potrà avere un massimo di 10 caratteri e pluto 7, quando copio una stringa da una textbox in pippo, quind:

pippo=textbox1.text (dove textbox1.text="Minny")

quando andrò a concatenare pippo a pluto (che contiene "Gimmy"), la nuova stringa conterrà i 10 caratteri di pippo (quindi Minny + 5 spazi) e poi i 7 caratteri di pluto (quindi Gimmy+2spazi)

la stringa finale dovrà essere, per esempio:

newString="Minny Gimmy "

Credo di essermi spiegato meglio ora!

[giorgiogio48]

Ti parlo da VB6 ma forse andrà bene per VB.net. Il codice è:

Private Sub Command1_Click()
Dim Pippo as String
Dim Pluto as String
If Len(Pippo) < 9 Then
Nuovastr = Pippo + Space(9 - Len(Pippo)) + Pluto
Text1 = Nuovastr
End If
End Sub

[kdcdado]

Credo che questa sia una soluzione,ora provo, grazie

[giorgiogio48]

bè hai risolto kdkdcado? E come?

[kdcdado]

Ho provato come hai detto tu.ORa funziona bene. Grazie mille

[giorgiogio48]

Prego.