home HinoADO
Menu

設定

ビルド名

ソリューションエクスプローラで「MyProject」ダブルクリック→左上の「アセンブリ名」に入力

アイコン設定

ソリューションエクスプローラで「MyProject」ダブルクリック→右中でアイコン設定

コンソールアプリをxp以降のスタイルに

        Application.EnableVisualStyles()
        Application.DoEvents()

上記をSub Main()に記入

ファイル入出力

実行ファイルがあるフォルダ名を取得する

        'カレントパスを取得
        Dim Pth As String
        Pth = Environment.CurrentDirectory

jwc_temp.txtを開いて読み込む

        'jwc_temp.txtを開いて読み込む
        Dim s1 As String()
        s1 = File.ReadAllLines(Pth & "\jwc_temp.txt", Encoding.Default)
        For Each tmp As String In s1
        Next

Shift-JISでテキストファイルを作成する

        'Shift-Jisでr_temp.txtを作成
        Dim r_tmp As New StreamWriter(Pth & "\r_temp.txt", True, System.Text.Encoding.GetEncoding("Shift_Jis"))
        r_tmp.WriteLine("hd")
        'r_temp.txtストリームを閉じる
        r_tmp.Close()

文字列操作

文字列から一部を取り出す

text.Substring(StartPosition, TextLength)

文字コードを取得する

Asc("A")