Dim sjis As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis") Dim reader As New IO.StreamReader("C:\test\test.txt", sjis) Dim writer As New IO.StreamWriter("C:\test\result.txt", False, sjis) Do Until reader.EndOfStream '対象から1行読む Dim sourceLine As String = reader.ReadLine '//の位置を取得 Dim pos As Integer = sourceLine.IndexOf("//") Dim targetLine As String If pos >= 0 Then '//が存在するならば、そこまでの文字列を切り抜く。 targetLine = sourceLine.Substring(0, pos) Else '//が存在しないならば、読み込んだ行全体が書き込む対象となる。 targetLine = sourceLine End If '書き込み writer.WriteLine(targetLine) Loop reader.Close() reader.Dispose() writer.Close() writer.Dispose()