しずか日記

【しずく 白猫】【すいか 黒猫】
の成長期や動画を掲載

VBS例)郵便番号のCSVデータを読み込み配列に格納して住所検索のソフトを作成

2023-02-24 15:15:09 | VBS

郵便番号のCSVデータを読み込み配列に格納して住所検索のソフトを作成してみた。

スプリクトは下記内容です。

マッチング時に使用できる。

Dim fso,data,data1(9999999),ki
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' 読み込みファイルの指定
Dim inputFile
Set inputFile = fso.OpenTextFile("KEN_ALL.CSV", 1, False, 0)a = 0 
Do Until inputFile.AtEndOfStream
a = a + 1 
  Dim lineStr
  lineStr = inputFile.ReadLine
data = Split(lineStr,",") 'コンマ区切りのデータを配列に入れる
'Wscript.Echo data(2)
ki = CLng(Replace(data(2),"""","")) 'ダブルクォーテーションを削除して文字列を数値に変換する
data1(ki)  =  data(6) & data(7) & data(8) '郵便番号の配列に住所を入れる

Loop
data2 = InputBox("郵便番号7桁を入力して下さい")
Wscript.Echo data1(CLng(data2)) '配列より住所を取得する
' バッファを Flush してファイルを閉じる
inputFile.Close

郵便番号データダウンロード - 日本郵便 - 郵便局 
CSVデータは日本郵便のホームページから取得して下さい

VBSで業務を自動化する


VBS例)全角・半角混じりの文字列で桁合わせ(固定長にする)【VBS】

2023-02-19 05:11:28 | VBS

全角・半角が混じっても固定の長さに加工できるスプリクト

Dim fso,aa,cc

aa  = "愛10愛"
iFigLen = 0
  For iCnt = 1 to Len(aa)
    sFig = (mid(aa, iCnt, 1))

    '一文字の長さを調べる
    If Asc(sFig) >= 0 Then
     iFigLen = iFigLen + 1
    Else
      iFigLen = iFigLen + 2
    End If
    Next
cc = aa & Right("                          ", 20 - iFigLen )

出力データの固定長化に便利です。

VBSで業務を自動化する