お世話になります。
760行程度のテキストファイルから
各行の最初の4文字だけを抜き取りたいのですが
vb.netでどのようなコーディングをすればよろしいでしょうか?
以下例です。
明日の天気はおおむね晴れです。
ですが、ところどころによっては
にわか雨になるでしょう。
おでかけのさいには
傘をもたれたほうがよろしいでしょう。
お気をつけて。
(というテキストファイルがあったとして)
明日の天
ですが、
にわか雨
おでかけ
傘をもた
お気をつ
というように保存されるようにしたいのです。
No.1
- 回答日時:
'やり方は色々ありますが、1つの方法
Imports System
Imports System.IO
Imports System.Text
Class ExampleClass
Shared Sub Main()
'INPUT
Dim inp As StreamReader = new StreamReader("input.txt", _
Encoding.GetEncoding("shift_jis"))
'OUTPUT
Dim Fs As FileStream = New FileStream("LEFT4.txt", _
FileMode.Create, FileAccess.Write, FileShare.None)
Dim out As StreamWriter = _
New StreamWriter(Fs, Encoding.GetEncoding("shift_jis"))
Dim oneLine As String
Dim left4 As String
Do While inp.Peek() >= 0
oneLine = inp.ReadLine()
left4 = oneLine.Substring(0,4)
out.WriteLine(left4)
Loop
inp.Close()
out.Flush()
out.Close()
End Sub
End Class
No.2ベストアンサー
- 回答日時:
BLUEPIXYさんのようにはできませんが一例です。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Fline As String
Const filename1 As String = "C:\memo.txt"
Const filename2 As String = "C:\memo2.txt"
FileOpen("1", filename1, OpenMode.Input)
FileOpen("2", filename2, OpenMode.Output)
Do Until EOF("1")
Fline = LineInput("1")
Print("2", Microsoft.VisualBasic.Left(Fline, 4) & vbCrLf)
Loop
FileClose("2")
FileClose("1")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- スーパー・コンビニ コンビニで追い返されました。 具体的に書くと、その日は雨が降っていて傘を持って入ろうとしました。コン 6 2022/04/26 21:26
- デート・キス 【デートの行き先変更について】 明日、彼氏と花畑を見に行く約束があります。 (私が花畑を希望しました 5 2022/04/30 16:18
- 会社・職場 職場での傘盗難、再発 5 2022/05/18 10:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- 片思い・告白 高3女、バ先の先輩は大2、 昨日午後から大雨だったということを知らず曇り空の下自転車でバ先に行ったと 3 2022/08/21 23:03
- 数学 『3本の雨傘』 8 2022/10/17 05:48
- 事故 事故対応や保険に詳しい方教えて下さい 1 2022/05/02 20:36
- C言語・C++・C# [C言語] コメント文字列を無視して、数値データを読み込むプログラム部分について 5 2022/10/05 11:03
- 大雨・洪水 コンビニの店内に傘を持ち込んで何が悪いのか 雨天時に買い物するとき、盗まれるのを防ぐため濡れた傘を店 1 2022/05/15 03:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報