programma per la normalizzazione

[totti240282]

ho un testo e mi servirebbe un programma che al carattere 120 mi darebbe automaticamente un invio per rimettermi a posto il testo dato che è incollonato male come posso fare ????????

[sebamix]

Originariamente inviato da totti240282
ho un testo e mi servirebbe un programma che al carattere 120 mi darebbe automaticamente un invio per rimettermi a posto il testo dato che è incollonato male come posso fare ????????

Puoi utilizzare le funzioni Mid e Len, ricordando che l'invio corrisponde alla costante vbCrLf

[totti240282]

scusami dato che ho iniziato da poco col vb puoi spiegarti meglio vbCrLf se non sbaglio sarebbe il cmd di invio vero ????????

[sebamix]

Originariamente inviato da totti240282
scusami dato che ho iniziato da poco col vb puoi spiegarti meglio vbCrLf se non sbaglio sarebbe il cmd di invio vero ????????

e' la costante vb che corrisponde a CR+LF

prova
MsgBox "Visita" & vbCrLf & "msdn.microsoft.com"

[totti240282]

perfetto è a capo come dicevo e hai un progetto di come potrei fare sai vorrei imparare ma sono un principiante grazie mille

[totti240282]

qualcuno mi puo illuminare ?????

[DeBe99]

Devi fare un ciclo con questa logica:
- Conti il numero di caratteri fino al prossimo invio
- Separi ogni 120 caratteri

dim x as integer
dim x2 as integer

x2=1
x=instr(x2,Text,vbCrLf )  'Trovo il primo invio(vbCrLf) nella stringa
while x<>0  'finche trova vbCrLf 
   if x-x2>120 then  'Se ci sono più di 120 caratteri
      text=left(text,x2+120) & vbcrlf & mid(text,x2+120)  'inserisco vbCrLf    
      x=x2+120
   endif
   x2=x+1  'cerco prossimo vbCrLf 
   x=instr(x2,Text,vbCrLf )
wend

Più o meno scritto un po di fretta

[totti240282]

instr a cosa serve ??????
praticamente lui con ta 120 caratteri e da l'invio poi dalla seconda riga ne conta di nuovo 120 e da invio vero ?????
cmq grazie molto gentile ad aiutare un pivello come me

[DeBe99]

Instr restituiscie la posizione del primo carattere corispondente alla tringa cercata:

[Posizione Carattere]= Instr([Inizio],[Stringa],[Stringa da cercare])

La routine in pratica cerca tutti gli invii esistenti nella stringa con INSTR, quindi se tra un invio e il successivo trova più di 120 spezza la stringa e riinizia a cercare dall'invio appena inserito.

[totti240282]

direi perfetto e se ne trova di meno agginge lo spazio fino a 120 ?????