Oppure

Loading
15/10/15 7:57
Postato originariamente da TheDarkJuster:

con un ciclo while


Ma no ... non servono cicli ...

        Dim s As String = "Testo"

        s = s.PadLeft((15 + s.Length) \ 2, "-").PadRight(15, "-")
15/10/15 11:06
TheDarkJuster
Ah beh, ancora meglio :rotfl:
aaa
15/10/15 11:39
rasonice
Ragazzi ho risolto con "insert". Viene al centro
Vi posto il codice. Magari può servire a qualcuno.
Dim s as string = "il testo"
dim a as string ="_____________________________" 'sono i caratteri speciali che servono a me
dim b as integer = S.length
dim l as integer = (a.length - b)/2
dim testo as string = a.insert(l + (s.length/2), s)
Poi la variabile "testo" la metti dove vuoi
Che ne pensate? non so se è professionale ma fa al caso mio;)
aaa
15/10/15 12:11
Cosa ne penso? Che non hai letto la mia risposta ...
15/10/15 12:19
rasonice
Ops... sono andato a pagina 2 direttamente... scusami nessuno. il tuo è molto più rapido del mio
aaa
15/10/15 12:42
rasonice
Cmq Nessuno vedendo il codice avevo già provato questa strada e in effetti così mi da solo la parola al posto dei trattini. invece a me serviva quel codice che ho postato perchè deve cmq mantenermi la lunghezza
aaa
15/10/15 13:21
Spiegati meglio.

15/10/15 14:18
rasonice
che, indipendentemente dalla lunghezza della stringa, il tutto cmq doveva avere una certa lunghezza. Diciamo che la lunghezza massima deve essere 50, la stringa può variare. Quindi lo spazio massimo meno la stringa deve essere composto da trattini(per esempio). ed inoltre il testo deve stare al centro.
Es. 1 _____casa_____
Es. 2 ____chiesa____
aaa