Parsing imenuje VBA način

Ova rutina je korisna za raščlanjivanje imena sa samo jednim razmakom, kao što su Harvey Wallbanger ili Tom Collins. Sljedeća tablica prikazuje rezultat pokretanja koda na imenima s više od jednog razmaka:

Ovo nije dobar pokušaj raščlanjivanja. Bilo je dobro za raščlanjivanje Harveya Wallbangera i Toma Collinsa, ali ne tako dobro za ostala imena.

Ovdje je razvijenija tehnika koja daje bolje rezultate. Imajte na umu da raščlanjivanje imena nije savršeno, ali ovaj način radi bolje.

Tehnika je da se izbroji koliko je mjesta u punom nazivu, a zatim se naziv razdvoji na jednom od razmaka. Konkretno, ako postoje tri ili više razmaka, koristite razmak dva u desno kao razmak; inače, koristite krajnji desni razmak kao razmak.

Ovaj proces se izvodi u VBA potprogramu koji poziva funkciju dok petlja kroz imena. Broj razmaka određuje se rano u glavnoj petlji, a funkcija vraća poziciju na kojoj se nalazi razmak.

Sub parse_names()
  Zatamnite naziv As String
  Zatamnjeni razmaci kao cijeli broj
  Učini do ActiveCell = "
    naziv = ActiveCell.Vrijednost
    razmaci = 0
    Za test = 1 To Len(ime)
      Ako je Mid(ime, test, 1) = " " Onda
      razmaci = razmaci + 1
    Završi ako
  Sljedeći
  Ako je razmaka >= 3 Tada
    break_space_position = space_position(" ", thename, spaces - 1)
  Drugo
    break_space_position = space_position(" ", thename, spaces)
  Završi ako
  Ako su razmaci > 0 Tada
    ActiveCell.Offset(0, 1) = Lijevo (naziv, pozicija_razmaka - 1)
    ActiveCell.Offset(0, 2) = Sredina (naziv, pozicija_razmaka + 1)
  Drugo
    ' ovo je za slučaj kada je puno ime samo jedno ime bez razmaka
    ActiveCell.Offset(0, 1) = ime
  Završi ako
  ActiveCell.Offset(1, 0).Aktiviraj
  Petlja
Kraj Sub
Funkcija space_position(what_to_look_for As String, what_to_look_in As String, space_count As Integer) Kao cijeli broj
  Dim loop_counter Kao cijeli broj
    razmak_položaj = 0
    For loop_counter = 1 To space_count
      space_position = InStr(loop_counter + space_position, what_to_trait_in, what_to_trait_for)
      Ako je space_position = 0, onda Exit For
    Sljedeći
Završna funkcija