Condividi:        

EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STRINGA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STRINGA

Postdi Gigi_ » 27/03/13 00:39

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.
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 344
Iscritto il: 14/11/09 21:51

Sponsor
 

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Flash30005 » 27/03/13 00:46

?
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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Gigi_ » 27/03/13 00:55

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?
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 344
Iscritto il: 14/11/09 21:51

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Flash30005 » 27/03/13 00:57

Ma hai la A tra parentesi?
Perché non pubblichi la stringa come ce l'hai effettivamente?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Gigi_ » 27/03/13 01:07

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 ;)
Ultima modifica di Gigi_ su 27/03/13 01:11, modificato 1 volte in totale.
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 344
Iscritto il: 14/11/09 21:51

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Flash30005 » 27/03/13 01:09

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?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Gigi_ » 27/03/13 01:23

Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 344
Iscritto il: 14/11/09 21:51

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Anthony47 » 27/03/13 02:33

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STR

Postdi Gigi_ » 27/03/13 02:54

WELL DONE!
... il bello è che scrivi "Potresti..."
PORTENTOSO
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 344
Iscritto il: 14/11/09 21:51


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL VBA: RICONOSCERE CARATTERE APICE/PEDICE IN UNA STRINGA":


Chi c’è in linea

Visitano il forum: Nessuno e 65 ospiti