vb6 Formattare una stringa

[nikeddy]

salve e scusate ancora per la domanda..

io importo un file excel e prendo una riga e il valore lo metto in una textbox.

purtroppo la riga e' cosi composta

PAOLO CICCIO 1-A(quadratino)(A A)

(il quadratino o rettangolino e' lo spazio presumo..) e tra le A c'e' uno spazio)

io vorrei formattare la stringa prima che entra nella txt cosi da ottenere

PAOLOCICCIO1A

come posso fare?

[oregon]

Ma tra 1 e A c'e' un trattino come hai mostrato ?

1-A

[nikeddy]

si...

il quadratino non posso replicarlo qui.

cmq la stringa e' cosi senza (quadratino) che comprese le parentesi e' il quadratino di excel (che rappresenta uno spazio credo)

[oregon]

E la lettera e' sempre una sola dopo il trattino?

[nikeddy]

si grazie

[oregon]

Allora, qualcosa del genere

    Dim s As String
    Dim f As Long
    
    s = "PAOLO CICCIO 1-A?(A A)"
    f = InStr(s, "-")
    If f Then
        s = Left(s, f - 1) & Mid(s, f + 1, 1)
        s = Replace(s, " ", "")
    End If
    
    MsgBox s

[nikeddy]

spettacolo !!!!

funziona devo solo adattarlo.

cmq le (A A) non me le elimina....

[oregon]

Originariamente inviato da nikeddy
cmq le (A A) non me le elimina....

Non mi pare ... il codice che ti ho indicato, secondo le tue indicazioni (se non sono variate), mostra quello che hai chiesto ...

[nikeddy]

ho notato che ad alcuni li elimina altri si.

devo vedere io.


Grazie tante .

[oregon]

Originariamente inviato da nikeddy
ho notato che ad alcuni li elimina altri si.

Se le stringhe non sono tutte come quella che hai mostrato, e' evidente che il codice possa non essere adatto.

Se cambiano le regole, deve cambiare il codice.