複数レコード間の共通文字列取り出し

また、郵便番号データの住所入力データ化が一歩進みました。

一番のネックで悩んでいたのがこの変換処理です。


R_市に入っている「ｻｲﾀﾏｼ」「ﾖｺﾊﾏｼ」を取り出して、市のデータを除いたものをR_区に入れています。

手順としては、政令市をグループ化(単一化）したデータの集合を作り、変換テーブルを政令市でフィルターして、R_市のデーターを1文字目から順に取り出し、文字列の比較をしていきます。

たとえば、ｻｲﾀﾏｼなら６文字目で差異が出ますので、差異が出る文字数より１個少ない文字列が共通文字になります。

今回の、スクリプトは、これです。     Private Sub 市区分離() '市区分離処理         Dim strSQL As String         Dim i As Integer         db = DbE.OpenDatabase(db_path() + "\anocora.mdb")         '市区分離変換テーブル作成         strSQL = " SELECT M_住所.市区町村, First(Left([R_住所].[市区町村],InStr([R_住所].[市区町村],'　')-1)) AS 政令市, M_住所.R_市, First(Mid([R_住所].[市区町村],InStr([R_住所].[市区町村],'　')+1)) AS 区, M_住所.R_区 INTO 市区分離変換テーブル "         strSQL = strSQL & "FROM M_住所 INNER JOIN R_住所 ON M_住所.市区町村 = R_住所.市町村置換 "         strSQL = strSQL & "GROUP BY M_住所.市区町村, M_住所.R_市, M_住所.R_区 "         strSQL = strSQL & "HAVING (((M_住所.市区町村) Like '*市*' And (M_住所.市区町村) Like '*区*'));"         db.Execute(strSQL)         Label1.Text = "市区分離変換テーブル作成を作成しました。"         Application.DoEvents()         '政令市のカナ表記抽出         '政令市抽出クエリ         Dim 政令市SQL As String = "SELECT 市区分離変換テーブル.政令市 "         政令市SQL = 政令市SQL & " FROM 市区分離変換テーブル "         政令市SQL = 政令市SQL & "GROUP BY 市区分離変換テーブル.政令市; "         Dim rs2 As DAO.Recordset = db.OpenRecordset(政令市SQL, DAO.RecordsetTypeEnum.dbOpenDynaset)         'R_市の文字列から政令市の共通文字列を抽出         While rs2.EOF = False             '政令市抽出クエリの政令市と同じデータを持つ、市区分離変換テーブルのレコードを抽出。             Dim strSQL2 As String = "SELECT 市区分離変換テーブル.政令市,市区分離変換テーブル.R_市 FROM 市区分離変換テーブル WHERE 市区分離変換テーブル.政令市='" & rs2.Fields!政令市.Value & "';"             Dim rs3 As DAO.Recordset = db.OpenRecordset(strSQL2, DAO.RecordsetTypeEnum.dbOpenDynaset)             Dim kana_ku As String = ""             i = 1             Dim k As Integer = Len(rs3.Fields!R_市.Value)             Dim srshi As String = rs3.Fields!R_市.Value             Do Until i > k '先頭レコードと次のレコードのR_市のデータを先頭から1文字づつ比較。                 kana_ku = kana_ku & srshi.Substring(i - 1, 1)                 While rs3.EOF = False                     If rs3.Fields!R_市.Value.Substring(0, i) <> kana_ku Then '差異が発生したしたら、区の更新をしてループから出る。                         kana_ku = kana_ku.Substring(0, i - 1)                         Dim strSQL3 As String = "UPDATE 市区分離変換テーブル SET 市区分離変換テーブル.[R_区] = Mid([R_市],InStr([R_市],'" & kana_ku & "')+" & i - 1 & ") "                         strSQL3 = strSQL3 & "WHERE (((市区分離変換テーブル.政令市)='" & rs2.Fields!政令市.Value & "'));"                         db.Execute(strSQL3)                         Exit Do                     End If                     rs3.MoveNext()                 End While                 rs3.MoveFirst()                 i = i + 1             Loop             rs2.MoveNext()         End While         rs2.Close()         Label1.Text = "市区分離変換テーブルに区のカナ表記を追加しました。"         Application.DoEvents()         '分離処理         strSQL = " UPDATE M_住所 INNER JOIN 市区分離変換テーブル ON M_住所.市区町村 = 市区分離変換テーブル.市区町村 SET M_住所.[市区町村] = [市区分離変換テーブル]![政令市], M_住所.[R_市] = [市区分離変換テーブル]![R_市], M_住所.[区] = [市区分離変換テーブル]![区], M_住所.[R_区] = [市区分離変換テーブル]![R_区];"         db.Execute(strSQL)         Label1.Text = "市区分離処理を終了しました。。"         Application.DoEvents()         db.Close() : db = Nothing     End Sub