salve a tutti...
vi espongo in maniera concisa il mio problema....
io ho la necessità di formattare un testo facendo in modo che se è più lunga di un certo numero di caratteri, questa viene messa su due righe e la seconda riga, tenendo presente che tra il bordo del div e l'inizio della stringa c'è un immagine grande 10px per 10px..
tempo fà avevo creato una sub che faceva questo lavoro:
solo che ora, vorrei sostituire i " " con un carattere di tabulazione...codice:Function SistemaMenu(Valore, Lettere, numSpazi) Dim VoceMenu, NumeroSpazi, arrStringa, Stringa SistemaMenu = Empty Stringa = Trim(UCase(Valore)) arrStringa = Split(Stringa, " ") NumeroSpazi = numSpazi + 4 Do While Not Stringa = "" For y = 0 To UBound(arrStringa) on error resume next VoceMenu = Trim(VoceMenu & " " & arrStringa(y)) If Len(VoceMenu) < Lettere Then Stringa = Trim(Replace(Stringa, arrStringa(y), "", 1, 1)) arrStringa(y) = "" Else Exit For End If Next SistemaMenu = SistemaMenu & Trim(VoceMenu) If Len(Trim(Stringa)) > 0 Then SistemaMenu = SistemaMenu & " " For y = 1 To NumeroSpazi SistemaMenu = SistemaMenu & " " Next End If VoceMenu = "" Loop End Function
solo che mi sn accorto che scrivendo chr(asc(vbTab)) tutte e due le righe vengono allineate al bordo sinistro del div, mentre se visualizzo il codice sorgente la tabulazione c'è...
come posso fare a inserire questo carattere di tabulazione?
grazie

Rispondi quotando
... se vuoi visualizzare più spazzi nel browser devi usare peffozza
