EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STRINGA

[Gigi_]

Ciaoa tutti.
Ho una serie di stringhe in cui i valori dei campi sono delimitati da una "A" apice.
Posso riconoscre la "A" apice con il VBA?
Anticipo i ringraziamenti.

[Flash30005]

?
Se imposti il foglio con Apice o Pedice
tutte le celle saranno scritte con questo stile e vengono riconosciute come normali caratteri

altrimenti spiega meglio

ciao

[Gigi_]

Non avrei potuto sperare di meglio!
Cerco di spiegarmi.
Ho ottenuto la stringa da una conversione online di un file pdf.
Il carattere separatore originale(^) è stato interpretato come una (A) apice.
quindi mi ritrovo una cosa simile alla seguente:
pippo(A)de pippis(A)via degli alberi, 12(A)(A)(A)telefono(A) etc.etc.(...chiaramente, (A) consecutive sono campi vuoti..)

Posso riconoscere le (A) apice?

[Flash30005]

Ma hai la A tra parentesi?
Perché non pubblichi la stringa come ce l'hai effettivamente?

[Gigi_]

magari..per comodità metto i valori dei campi in minuscolo ma sono in realtà tutti in maiuscolo, ed in molte stringhe in effetti questa è la situazione reale, vale a dire che le A sono tal quali e non apice o, addirittura, ci sono tutte e due!!
comunque avrei già fatto un passo da gigante a riconoscere le A apice
dmnlgs69c21l425tAdamianiAluigi giuseppeAvia san francesco, 79AA70018ArutiglianoAbaAAAAAAAAbariAAAAAAnon effetuata
ps mi autorizzo a mettere i miei dati

[Flash30005]

ok
ora dimmi dove ce le hai queste stringhe
in una cella di excel (es.: in A1, A2 etc)?
o su più colonne?
Potresti inviare il file con almeno due righe così fatte?

[Gigi_]

http://uploading.com/12ec77d2/XFLASH-xls

[Anthony47]

Potresti usare una funzione come questa per convertire i caratteri apice-A in #, e poi usare Testo-In Colonna per separare i campi:

Codice: Seleziona tutto

Function ASuper(ByRef Sorg)
Dim I As Long, J As Long, myNew As String
myNew = Sorg.Value
For I = 1 To Len(Sorg.Value)
    If Sorg.Characters(Start:=I, Length:=1).Font.Superscript = True Then
        myNew = Left(myNew, I - 1) & "#" & Mid(myNew, I + 1, 9999)
    End If
Next I
ASuper = myNew
End Function


Ad esempio puoi creare un nuovo elenco inserendo in A2 di Foglio2 la formula

Codice: Seleziona tutto

=ASUPER(Foglio1!A2)


Poi copi verso il basso.
Il nuovo elenco e' pronto per essere splittato in campi usando Testo in colonna.

Se devi farlo col vba, basta usare il risultato di ASUPER con la funzione Split; ad esempio

Codice: Seleziona tutto

mySplit = Split(ASuper(Range("A1")), "#")


La variabile mySplit conterra' un array con tutti i campi della cella A1 del foglio attivo.

Ciao

[Gigi_]

WELL DONE!
... il bello è che scrivi "Potresti..."
PORTENTOSO