VB.NET でｺﾏﾝﾄﾞﾗｲﾝから引数渡し[ﾌﾟﾛｸﾞﾗﾐﾝｸﾞ]
(2010-09-14 18:02:54) by shinoda

VisualBasic で作っているｺﾝｿｰﾙｱﾌﾟﾘｹｰｼｮﾝの話｡

取りあえず､ﾃｽﾄの時にはｺﾏﾝﾄﾞﾗｲﾝから使用するｺﾝﾌｨｸﾞﾌｧｲﾙを設定出来るようになってる方が楽なので､この間作ったﾌﾟﾛｸﾞﾗﾑをちょっと修正｡

(1) ｺﾏﾝﾄﾞﾗｲﾝでｺﾝﾌｨｸﾞﾌｧｲﾙ名を指定出来るように修正

ﾒｲﾝ処理の先頭に､ｺﾏﾝﾄﾞﾗｲﾝ引数の読込処理を追加｡
ﾌｧｲﾙ名が指定されていれば､ﾛｰｶﾙ変数にｾｯﾄ｡

Dim fn As String = ""

For Each cmd As String In My.Application.CommandLineArgs
    If cmd <> "" Then
        fn = cmd
        Exit For
    End If
Next

(2) 取得したﾌｧｲﾙ名を引数にして Sub ﾌﾟﾛｼｰｼﾞｬ呼び出し

ConfigRead(fn)

(3) ﾌｧｲﾙ名を引数で受け取るように Sub ﾌﾟﾛｼｰｼﾞｬ修正

Sub ConfigRead(ByVal Fn As String)

    Dim line As String = ""
    Dim al As New ArrayList

    ' ﾌｧｲﾙ名が指定されてなければ処理を抜ける
    If Fn = "" Then
        Console.WriteLine("Config File name is Null.")
        Return
    End If

    Using sr As StreamReader = New StreamReader(Fn, Encoding.GetEncoding("Shift_JIS"))
＜以下略＞

という感じ｡

これで､引数で渡されたｺﾝﾌｨｸﾞﾌｧｲﾙを読むようになる｡