ウィングのHPへようこそ 本文へジャンプ
サンプル一覧へ戻る

苗字を抽出する関数


名前のうち、頭から見ていって、最初にスペース(半角、全角)が出てきたところまでを苗字として抽出する
したがって、名前の中にスペースがないものは、名前すべてが抽出されてしまう
名前から苗字だけを抜き出して、ワード等の差込文書に利用するために作成した。
<ソース例>


Public Function F_Myouji_Set(P_Name As String) As String
  '苗字を抽出する関数
  '名前のうち、頭から見ていって、最初にスペース(半角、全角)が出てきたところまでを苗字として抽出する
  'したがって、名前の中にスペースがないものは、名前すべてが抽出されてしまう。
  'パラメータ P_Name … 名前を入れる。

  Dim nagasa As Integer
  Dim I As Integer
  Dim J As Integer
  Dim str2 As String

  nagasa = Len(P_Name)
  str2 = ""
  If nagasa <> 0 Then
    For I = 1 To nagasa
      If Mid(P_Name, I, 1) <> " " And Mid(P_Name, I, 1) <> " " Then

        str2 = str2 & Mid(P_Name, I, 1)
      Else
        F_Myouji_Set = str2
        Exit Function
      End If
    Next
  End If
  F_Myouji_Set = str2

End Function

サンプル一覧へ戻る
 

Copyright(C) 2006 Wing