Vraag : blink de telefoon & de fax van het vbauittreksel op adresgebied uit

Ik heb een omslag van xlsx & csvs met telefoon & faxgegevens in een adreskolom dat ik in hun afzonderlijke telefoon en fax column.

Ideally wil zetten, denk ik de volgende regels de gewenste gegevens successfully.

1 zouden halen. Niet behoort alle aantallen tot telefoons (d.w.z. zipcodes) niet alle telefoonaantallen zijn voorafgegaan door om het even wat die het identificeert (d.w.z. de telefoon, ph, tel.) niet alle verslagen hebben een telefoon, een fax of een either.

2. Hun zijn atleast opeenvolgende aantallen 10+ in een telefoon (met internationale codes & kan het draaien 13-15 aantallen zijn) die enkelen van om het even welke volgende separators [.] zou kunnen hebben, [-], [)], [(] of de enige ruimte van A [].

3. Het eerste voorkomen van de bundel van aantallen zoals die in #2 wordt beschreven is de telefoon #, is het tweede voorkomen de fax #.  


I slaagde reeds erin om een manuscript op een omslag van dossiers in werking te stellen. Ik merkte enkel op dat het voor me om in de verslagen onhoudbaar zal zijn te gaan één voor één en manueel de telefoon en de fax te halen # ' s aangezien er many. zijn

Antwoord : blink de telefoon & de fax van het vbauittreksel op adresgebied uit

Probeer het volgende:

Het gebruikt gebruikersfuncties.

Chris
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

fnValNum van de functie (strInput als Koord) zoals Van Boole
'De Bibliotheek van het Type van Regelmatige „Uitdrukkingen van Microsoft VBScript“ van het gebruik
Schemerige regEx als Voorwerp
    
    Reeks regEx = CreateObject („vbscript.regexp“)
    regEx.IgnoreCase = Waar
    regEx.Pattern = „([0-9] [-. ()] *) {10.15}“
    fnValNum = regEx.test (strInput) = Waar
    
Reeks regEx = niets
De Functie van het eind

fnGetNum van de functie (strInput als Koord, telNum als Van Boole) als Koord
'De Bibliotheek van het Type van Regelmatige „Uitdrukkingen van Microsoft VBScript“ van het gebruik
Schemerige regEx als Voorwerp
Schemerige colMatch als Voorwerp
Schemerige itm als Variant
    
    Als fnValNum (strInput) Dan
        Reeks regEx = CreateObject („vbscript.regexp“)
        regEx.IgnoreCase = Waar
        regEx.Global = Waar
        regEx.Pattern = „([0-9] [-. ()] *) {10.15}“
        Reeks colMatch = regEx.Execute (strInput)
        Als telNum toen
            fnGetNum = colMatch (0)
        Anders
            Als colMatch.Count > 1 toen _
                fnGetNum = colMatch (1)
        Eind als
    Eind als
    
Reeks regEx = niets
De Functie van het eind
 
steekproef-gegeven-1-.xls (34 KB) (de Details van het Type van Dossier) 
code in geleverd dossier wordt bepaald dat
 
Andere oplossingen  
 
programming4us programming4us