”～”で範囲指定されたデータの分割と補間

無事、完了しました。

種市のデータは多すぎるので、表示からは除いていますが、分離、補間されているのは確認済みです。

        'カナテーブル         strSQL = "SELECT M_住所.* "         strSQL = strSQL & "FROM M_住所 "         strSQL = strSQL & "WHERE (M_住所.町域) Like '*～*' And (M_住所.町域) Like '*#地割*';"         rs = db.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)         While rs.EOF = False             '町域データの'～'での分離。R_町域は'-'             Dim tiwari() As String = Split(rs.Fields!町域.Value, "～")             Dim K_tiwari() As String = Split(rs.Fields!R_町域.Value, "-")             Dim N_tiwari As String             Dim N_tiwari_K As String             Dim S_tiwari As Integer             If Char.IsDigit(Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 2, 1)) Then                 S_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 2, 2)                 N_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), 1, Microsoft.VisualBasic.Len(tiwari(0)) - 4)                 N_tiwari_K = Microsoft.VisualBasic.Mid(K_tiwari(0), 1, Microsoft.VisualBasic.Len(K_tiwari(0)) - 5)             Else                 S_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 1, 1)                 N_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), 1, Microsoft.VisualBasic.Len(tiwari(0)) - 3)                 N_tiwari_K = Microsoft.VisualBasic.Mid(K_tiwari(0), 1, Microsoft.VisualBasic.Len(K_tiwari(0)) - 4)             End If         'カナテーブル         strSQL = "SELECT M_住所.* "         strSQL = strSQL & "FROM M_住所 "         strSQL = strSQL & "WHERE (M_住所.町域) Like '*～*' And (M_住所.町域) Like '*#地割*';"         rs = db.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)         While rs.EOF = False             '町域データの'～'での分離。R_町域は'-'             Dim tiwari() As String = Split(rs.Fields!町域.Value, "～")             Dim K_tiwari() As String = Split(rs.Fields!R_町域.Value, "-")             Dim N_tiwari As String             Dim N_tiwari_K As String             Dim S_tiwari As Integer             If Char.IsDigit(Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 2, 1)) Then                 S_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 2, 2)                 N_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), 1, Microsoft.VisualBasic.Len(tiwari(0)) - 4)                 N_tiwari_K = Microsoft.VisualBasic.Mid(K_tiwari(0), 1, Microsoft.VisualBasic.Len(K_tiwari(0)) - 5)             Else                 S_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), Microsoft.VisualBasic.InStr(tiwari(0), "地割") - 1, 1)                 N_tiwari = Microsoft.VisualBasic.Mid(tiwari(0), 1, Microsoft.VisualBasic.Len(tiwari(0)) - 3)                 N_tiwari_K = Microsoft.VisualBasic.Mid(K_tiwari(0), 1, Microsoft.VisualBasic.Len(K_tiwari(0)) - 4)             End If             Dim E_tiwari As Integer             If Char.IsDigit(Microsoft.VisualBasic.Mid(tiwari(1), Microsoft.VisualBasic.InStr(tiwari(1), "地割") - 2, 1)) Then                 E_tiwari = Microsoft.VisualBasic.Mid(tiwari(1), Microsoft.VisualBasic.InStr(tiwari(1), "地割") - 2, 2)             Else                 E_tiwari = Microsoft.VisualBasic.Mid(tiwari(1), Microsoft.VisualBasic.InStr(tiwari(1), "地割") - 1, 1)             End If             Dim i As Integer             For i = S_tiwari To E_tiwari                 If i = S_tiwari Then '町域の分割更新                     strSQL = "UPDATE M_住所 SET M_住所.町域 ='" & tiwari(0) & "', M_住所.R_町域 = '" & K_tiwari(0) & "' "                     strSQL = strSQL & "WHERE (((M_住所.ID)=" & rs.Fields!ID.Value & "));"                 Else '町域の分割追加                     strSQL = "INSERT INTO  M_住所 (郵便番号,都道府県,R_県,市区町村,R_市,町域,R_町域,地名,R_地名,註釈,R_註釈) "                     strSQL = strSQL & "VALUES('" & rs.Fields!郵便番号.Value & "','" & rs.Fields!都道府県.Value & "','" & rs.Fields!R_県.Value & "','" & rs.Fields!市区町村.Value & "','" & rs.Fields!R_市.Value & "','" & N_tiwari & StrConv(i, Microsoft.VisualBasic.VbStrConv.Wide, &H411) & "地割','" & N_tiwari_K & i & "ﾁﾜﾘ','" & rs.Fields!地名.Value & "','" & rs.Fields!R_地名.Value & "','" & rs.Fields!註釈.Value & "','" & rs.Fields!R_註釈.Value & "');"                 End If                 Debug.Print(strSQL)                 db.Execute(strSQL)             Next             rs.MoveNext()         End While

数字部分の一桁、二桁で戸惑いましたが、大体予定通りの考え方です。

これで、課題は、カナデータがブランクになっている、京都の通り名の穴埋めです。

手作業をどこまで減らせるか？
郵便番号データ以外にも、無料で提供してくれている住所データが有ればこんな苦労はしなくてもいいのですが、意地になってやっています。