Allora ho sto codice:
Allora: nel primo while funziona nel secondo mi esce dal while subito appena fa il case. C'e' qualche bug? o non posso uscire dal select con end while perche' poi dopo si incasina?codice:While pos > 0 car = Mid(Name, pos, 1) Select Case car Case "-" trovato = True Case Is <> ".", " ", "_" Exit While End Select pos -= 1 End While ... operazioni sulla stringa neme nel caso trovato = true cambia il valore di pos e trovato. ... While pos < len(Name) car = Mid(Name, pos, 1) Select Case car Case "-" trovato = True Case Is <> ".", " ", "_" Exit While End Select pos += 1 End While

Rispondi quotando