Nosaukumu parsēšana VBA veidā

Šī rutīna ir noderīga, parsējot nosaukumus tikai ar vienu atstarpi, piemēram, Hārvijs Volbengers vai Toms Kolinss. Šajā tabulā ir parādīts koda palaišanas rezultāts nosaukumos, kuros ir vairāk nekā viena atstarpe:

Šis nav labs parsēšanas mēģinājums. Tas izdevās lieliski, analizējot Hārviju Volbengeru un Tomu Kolinsa, bet ne tik labi citiem vārdiem.

Šeit ir izstrādāta tehnika, kas nodrošina labākus rezultātus. Ņemiet vērā, ka nosaukumu parsēšana nav ideāla, taču šādi rīkojoties, tiek panākts labāks darbs.

Paņēmiens ir saskaitīt, cik atstarpju ir pilnajā nosaukumā, un pēc tam sadalīt nosaukumu vienā no atstarpēm. Jo īpaši, ja ir trīs vai vairāk atstarpes, izmantojiet atstarpi divas collas no labās puses kā atstarpi; pretējā gadījumā izmantojiet galējo labo atstarpi kā pārtraukuma atstarpi.

Šis process tiek palaists VBA apakšprogrammā, kas izsauc funkciju, vienlaikus pārlūkojot nosaukumus. Atstarpju skaits tiek noteikts galvenās cilpas sākumā, un funkcija atgriež pozīciju, kurā atrodas pārtraukuma atstarpe.

Apakšparsēšanas_nosaukumi()
  Dim thename As String
  Blāvas atstarpes kā vesels skaitlis
  Dariet līdz ActiveCell = "
    thename = ActiveCell.Value
    atstarpes = 0
    Pārbaudei = 1 līdz Len (nosaukums)
      Ja Mid(nosaukums, tests, 1) = " " Tad
      atstarpes = atstarpes + 1
    Beigas Ja
  Nākamais
  Ja atstarpes >= 3 Tad
    break_space_position = space_position(" ", nosaukums, atstarpes - 1)
  Citādi
    break_space_position = space_position(" ", nosaukums, atstarpes)
  Beigas Ja
  Ja atstarpes > 0 Tad
    ActiveCell.Offset(0, 1) = pa kreisi (nosaukums, pārtraukuma_atstarpes_pozīcija — 1)
    ActiveCell.Offset(0, 2) = vidējais(nosaukums, pārtraukuma_atstarpes_pozīcija + 1)
  Citādi
    Tas ir paredzēts, ja pilnais vārds ir tikai viens vārds bez atstarpēm
    ActiveCell.Offset(0, 1) = nosaukums
  Beigas Ja
  ActiveCell.Offset(1, 0).Aktivizēt
  Cilpa
Beigu apakš
Funkcija space_position(what_to_look_for As String, what_to_look_in As String, space_count As Integer) Kā vesels skaitlis
  Dim loop_counter kā vesels skaitlis
    telpa_pozīcija = 0
    For loop_counter = 1 Līdz atstarpes_skaitam
      space_position = InStr(cilpas_skaitītājs + atstarpes_pozīcija, kas_jāskatās, ko_meklēt)
      Ja atstarpes_pozīcija = 0, tad Exit For
    Nākamais
Beigu funkcija