BatchHelper 郵便番号マスタ作成

  createzip.wsf



  
<JOB>
<COMMENT>
************************************************************
 オブジェクト定義
************************************************************
</COMMENT>
<OBJECT id="Lbox" progid="Lbox.BatchHelper" />
<OBJECT id="Database" progid="Lbox.Database" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />

<SCRIPT language=VBScript>

' **********************************************
' MDB のパスを決定
' **********************************************
DbPath = Lbox.OpenFileName( "MDB 選択", "MDB,*.mdb" )
if DbPath = "" then
	Lbox.MsgOk( "MDB 選択でキャンセルされました   " )
	Wscript.Quit
end if

' **********************************************
' CSV のパスを決定
' **********************************************
CsvPath = Lbox.OpenFileName( "CSV 選択", "CSV,*.csv" )
if CsvPath = "" then
	Lbox.MsgOk( "CSV 選択でキャンセルされました   " )
	Wscript.Quit
end if

' **********************************************
' 接続
' **********************************************
Result = Database.Connect( 1, DbPath ) 
if Result <> "" then
	Lbox.MsgOk( Result )
	Wscript.Quit
end if

' **********************************************
' SQL実行
' **********************************************
Query = "drop table [郵便番号マスタ]"
Call Database.Query( Query )

Query = "create table [郵便番号マスタ] ("
Query = Query & "[郵便番号] VARCHAR(7)"
Query = Query & ",[都道府県名カナ] VARCHAR(255)"
Query = Query & ",[市区町村名カナ] VARCHAR(255)"
Query = Query & ",[町域名カナ] VARCHAR(255)"
Query = Query & ",[都道府県名] VARCHAR(255)"
Query = Query & ",[市区町村名] VARCHAR(255)"
Query = Query & ",[町域名] VARCHAR(255)"
Query = Query & ")"

if not Database.Query( Query ) then
	Database.DisConnect
	Lbox.MsgOk("郵便番号マスタの作成に失敗しました")
	Wscript.Quit
end if

' **********************************************
' ファイルオープン
' **********************************************
Set Csv = Fso.OpenTextFile( CsvPath, 1 )

' **********************************************
' 処理
' **********************************************
Do While not Csv.AtEndOfStream
	Buffer = Csv.ReadLine
	Token = Split(Buffer,",")
	Query = "insert into [郵便番号マスタ] values("
	Query = Query & Lbox.Enclose(Lbox.RemoveEnclose(Token(2), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(3), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(4), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(5), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(6), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(7), """"),"'")
	Query = Query & "," & Lbox.Enclose(Lbox.RemoveEnclose(Token(8), """"),"'")
	Query = Query & ")"
	Call Database.Query( Query )
Loop

Csv.Close()

' **********************************************
' 接続解除
' **********************************************
Database.DisConnect

Lbox.MsgOk("処理が終了しました")

</SCRIPT>
</JOB>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ