今は、C直下のABCというフォルダの中の
0000.txt と 1111.txt の2つがあって、
0000.txt の一番上の行を削除して、1111.txt を作成しています。
この1111.txt の一番下の行を削除する追記をどうすればいいのか
わかる方教えてほしいです。
※VBAわからないので、コピペコピペで作成してます。
※わかる方は、そのまま下の文書に追記頂ければ幸いです。
Function callsub()
Call del
End Function
Sub del()
Dim WL As String
Dim x As Long
Dim F As Variant
F = FreeFile
Open "C:\ABCA\0000.txt" For Input As #F
Open "C:\ABC\1111.txt" For Output As #F + 1
For x = 1 To 2
Line Input #F, WL
Next
Do Until EOF(F)
Line Input #F, WL
Print #F + 1, WL
Loop
Close #F
Close #F + 1
End Sub
No.3ベストアンサー
- 回答日時:
先頭2レコードを読み飛ばしているようですが、それで正しいのですよね?
であれば、こんな感じです。
Function callsub()
Call del
End Function
Sub del()
Dim WL As String
Dim x As Long
Dim F As Variant
F = FreeFile
Open "C:\ABCA\0000.txt" For Input As #F
Open "C:\ABC\1111.txt" For Output As #F + 1
For x = 1 To 3
Line Input #F, WL
Next
Do
Print #F + 1, WL
Line Input #F, WL
Loop Until EOF(F)
Close #F
Close #F + 1
End Sub
No.2
- 回答日時:
#1の補足です。
文字コードのことをすっかり忘れていました。現行では、Shift-JISだけのチェックです。
Accessで、Shift-JISだけということもないでしようけれども、ダメだったら、二段目を考えます。
No.1
- 回答日時:
やり方は、いろいあるかとは思いますが、VBAの外部ツールで作ってみました。
Call Line_FE(OldFile, NewFile) 0000.txt , 1111.txt
Function Line_FE(FileName As String, outFilename As String)
Dim objFS As Object
Dim objText As Object
Dim oExport As Object
Dim FNo As Integer
Dim TextLine As String
Dim i As Long, j As Long
Dim e_line
Dim buf, Arbuf
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile(FileName, 8)
e_line = objText.Line - 1
objText.Close
Set objText = objFS.OpenTextFile(FileName)
buf = objText.ReadAll
Arbuf = Split(buf, vbCrLf)
' 下準備完了
'---------------
Set oExport = objFS.CreateTextFile(outFilename, True)
Arbuf = Split(buf, vbCrLf)
For j = 1 To UBound(Arbuf) - 1 '最後までいかない
If j > 1 Then '最初を飛ばし
oExport.Writeline (Arbuf(j - 1))
End If
Next
oExport.Close
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/02/05 09:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチ処理 特定の文字以降を...
-
ASP.NET (VB) データのnull(空...
-
[コンパイルエラー 修飾子が不...
-
フォームのResizeイベントについて
-
VBA テキストボックスを選択状...
-
■PukiWikiの凍結解除方法を教え...
-
複数のファイルをまたぐエクセ...
-
【ExcelVBA】300万件越えCSVか...
-
Excelマクロ 空白セルを無視し...
-
VBAでcsvファイルもシートもあ...
-
VBA csvファイルのデータを...
-
ダブルコーテーション付きでCSV...
-
vbaマクロについて 次のような...
-
C# ファイルを読み込みlistvie...
-
VB.netでShellExecuteがしたい
-
fortranでNAのあるデータを読み...
-
pythonのエラーについて
-
ファイル名を変数で書きこむfwr...
-
fortranでデータの抜き出しをし...
-
エクセルの任意のシートをcs...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理 特定の文字以降を...
-
パイソンでテキストファイルが...
-
VBA テキストボックスを選択状...
-
teratermで、ファイル名をinput...
-
SQLでテキストボックスの文字を...
-
MS-DOSバッチファイルコマンド...
-
Access VBA エラー2448について
-
[コンパイルエラー 修飾子が不...
-
ダブルクォートで囲まれた文字...
-
verilog HDLについての質問です...
-
型の値をDataGridViewセルに変換...
-
言語[RUBY]を用いて、特定列を...
-
バッチ for /f 空白、スペース...
-
ruby テキストファイル書き出し...
-
■PukiWikiの凍結解除方法を教え...
-
テキストboxに数値を入れる...
-
ASP.NET (VB) データのnull(空...
-
コンボボックスとスピンボタン
-
バッチファイル フォルダ名をフ...
-
アスキー変換 と 逆変換について
おすすめ情報