Parsing pomenúva spôsob VBA

Táto rutina je užitočná pri analýze mien len s jednou medzerou, ako napríklad Harvey Wallbanger alebo Tom Collins. Nasledujúca tabuľka zobrazuje výsledok spustenia kódu na menách s viac ako jednou medzerou:

Toto nie je dobrý pokus o analýzu. Pri analýze Harveyho Wallbangera a Toma Collinsa to fungovalo dobre, ale pri ostatných menách to tak dobre nebolo.

Tu je rozvinutejšia technika, ktorá prináša lepšie výsledky. Majte na pamäti, že analýza mien nie je dokonalá, ale takto to robí lepšie.

Technika je spočítať, koľko medzier je v celom názve, a potom rozdeliť názov na jednu z medzier. Najmä, ak sú tri alebo viac medzier, použite ako medzeru medzeru dva sprava; v opačnom prípade použite medzeru úplne vpravo ako medzeru.

Tento proces je spustený v podprograme VBA, ktorý volá funkciu počas cyklovania mien. Počet medzier je určený na začiatku hlavnej slučky a funkcia vráti pozíciu, kde sa nachádza medzera.

Sub parse_names()
  Dim thename As String
  Dim spaces As Integer
  Urobiť, kým ActiveCell = "
    thename = ActiveCell.Value
    medzery = 0
    Na test = 1 Len (meno)
      Ak Mid(meno, test, 1) = " " Potom
      medzery = medzery + 1
    Koniec Ak
  Ďalšie
  Ak medzery >= 3 Potom
    break_space_position = space_position(" ", názov, medzery - 1)
  Inak
    break_space_position = space_position(" ", názov, medzery)
  Koniec Ak
  Ak medzery > 0 Potom
    ActiveCell.Offset(0, 1) = Left(thename, break_space_position - 1)
    ActiveCell.Offset(0, 2) = Mid(názov, poloha_medzera + 1)
  Inak
    Toto je pre prípad, keď je celé meno iba jedno meno bez medzier
    ActiveCell.Offset(0, 1) = názov
  Koniec Ak
  ActiveCell.Offset(1, 0).Aktivovať
  Slučka
End Sub
Funkcia space_position(what_to_look_for As String, what_to_look_in As String, space_count As Integer) As Integer
  Dim loop_counter As Integer
    space_position = 0
    Pre loop_counter = 1 To space_count
      space_position = InStr(loop_counter + space_position, what_to_look_in, what_to_look_for)
      Ak space_position = 0, potom Exit For
    Ďalšie
End Function