• 追加された行はこの色です。
• 削除された行はこの色です。
• Others/VB.NET へ行く。

#author("2017-11-26T23:45:18+09:00","","")
#contents
*設定 [#va0c89cd]
**ビルド名 [#d03b6946]
ソリューションエクスプローラで「MyProject」ダブルクリック→左上の「アセンブリ名」に入力

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

**コンソールアプリをxp以降のスタイルに [#mc6ec70a]

         Application.EnableVisualStyles()
         Application.DoEvents()

上記をSub Main()に記入
*ファイル入出力 [#t86d854e]
**実行ファイルがあるフォルダ名を取得する [#e6246358]

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


**jwc_temp.txtを開いて読み込む [#m7f54d18]

         '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でテキストファイルを作成する [#hdc16949]

         '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()


*文字列操作 [#r43659ff]
**文字列から一部を取り出す [#b458b708]

 text.Substring(StartPosition, TextLength)


**文字コードを取得する [#uff82f9f]

 Asc("A")