No.1
- 回答日時:
わかりやすい手順としては、
ファイルを仮テーブルに1行ずつ読み込み、
特定行をテーブルから削除して、
全レコードを新規に書き出す。
わからない部分を特定していただけると、もっと具体的にお答えできると思います。
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=2232969
No.2ベストアンサー
- 回答日時:
FileRead()は、指定のテキストファイルから1行づつ読み込んで返す関数です。
これを利用して、1行づつチェックして書き出すのが一つの方法です。
もっと、簡単なのは、FileReadArray() で一気に変数に呼び込むことです。
UBound()などで配列に呼び込んだ行数を取得してチェックして不要行を削除します。
FileWrite()で書き出します。
Public Function FileRead(ByVal FileName As String, Optional isStop As Boolean = False) As String
On Error GoTo Err_FileRead
Static isOpen As Boolean
Static fso As FileSystemObject
Static fil As File
Static txs As TextStream
If Not isOpen Then
isOpen = True
Set fso = New FileSystemObject
Set fil = fso.GetFile(FileName)
Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
End If
FileRead = IIf(fil.Name = FileName, txs.ReadLine, "")
Exit_FileRead:
If Len(FileRead) = 0 Or isStop Then
isOpen = False
Set txs = Nothing
Set fil = Nothing
Set fso = Nothing
End If
Exit Function
Err_FileRead:
Resume Exit_FileRead
End Function
Public Function FileReadArray(ByVal FileName As String) As String()
On Error GoTo Err_FileReadArray
Dim fso As FileSystemObject
Dim fil As File
Dim txs As TextStream
Dim strText As String
Dim strTexts() As String
Set fso = New FileSystemObject
Set fil = fso.GetFile(FileName)
Set txs = fil.OpenAsTextStream(ForReading, TristateUseDefault)
strText = txs.ReadAll
strTexts = Split(strText, Chr$(13) & Chr$(10))
Exit_FileReadArray:
FileReadArray = strTexts()
Exit Function
Err_FileReadArray:
MsgBox Err.Description & "(FileReadArray)", vbExclamation, " 関数エラーメッセージ"
strTexts() = Split("")
Resume Exit_FileReadArray
End Function
Public Function FileWrite(ByVal FileName As String, _
ByVal Text As String) As Boolean
On Error GoTo Err_FileWrite
Dim fso As FileSystemObject
Dim txs As TextStream
Set fso = New FileSystemObject
Set txs = fso.CreateTextFile(FileName, True)
txs.Write Text
FileWrite = True
Exit_FileWrite:
Exit Function
Err_FileWrite:
MsgBox Err.Description & "(FileWrite)", vbExclamation, " 関数エラーメッセージ"
Resume Exit_FileWrite
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- フリーソフト テキストファイルの一括置換で除外したい文字があります。 2 2022/06/21 17:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/02/05 09:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- その他(クラウドサービス・オンラインストレージ) OneDriveで特定のフォルダ(写真だと、スクリーンショット)の内容だけをバックアップしない方法を 2 2022/05/20 01:44
- その他(プログラミング・Web制作) awkの BEGIN{RS=""} で空行を削除できるが、削除できる仕組みが分からない。 1 2023/05/02 14:14
- VPN VPN Client Adapter を削除する方法を教えて下さい。 1 2023/08/20 01:49
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
CSVファイルの特定行の削除
Visual Basic(VBA)
-
VBAでの行削除について
その他(プログラミング・Web制作)
-
-
4
テキストファイルからデータを削除したい。
Visual Basic(VBA)
-
5
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
6
txtファイルから特定の文字列が書かれた行だけを取得や削除するソフト
フリーソフト
-
7
EXCEL VBAでテキストファイルの特定の場所にデータを書き込む方法
Visual Basic(VBA)
-
8
VBAでCSVファイルの特定行を書き換える方法はあるのでしょうか?
その他(プログラミング・Web制作)
-
9
Access インポート
Access(アクセス)
-
10
テキストファイルの行頭に文字列挿入したい
Visual Basic(VBA)
-
11
アクセスにtxtファイルの指定行のみインポートしたい
PowerPoint(パワーポイント)
-
12
VBAでCSVの1行目だけを書き換える方法
Excel(エクセル)
-
13
テキストファイルを直接置換する方法
Visual Basic(VBA)
-
14
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
15
Accessクエリで特定の行を削除したい
Access(アクセス)
-
16
CSVファイル操作
Visual Basic(VBA)
-
17
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
18
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
19
ファイルの先頭行を全て削除したい
Windows Vista・XP
-
20
ACCESSの時間帯の抽出について
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAが徐々に遅くなる
-
ATTファイルってどうやって開け...
-
C言語でテキストファイルをバイ...
-
フォーム無しでアプリを作成す...
-
既存のテキストファイルを開く方法
-
StreamReaderで読み込んだファ...
-
[VB.NET] 処理の高速化を行いた...
-
テキストファイル固定長データ...
-
バイナリデータの中からMidのよ...
-
パイソンでのテキストデータの...
-
バイナリファイルとバイナリ文...
-
CSVファイルの時刻の形式について
-
accessでクエリをExcelにエクス...
-
HTMLテキストリンクでExcelファ...
-
ACCESS2002(or2003)の日付表示...
-
includeで別サイトを読み込む
-
社員情報
-
VBAでフォルダ内の全てのcsv...
-
ファイナルカットで編集した動...
-
VB6.0でExcel,PDF,Word出力方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ATTファイルってどうやって開け...
-
Excel VBAが徐々に遅くなる
-
テキストファイルの一部分を抽...
-
既存のテキストファイルを開く方法
-
テキストファイル(英語&日本...
-
VB(VBA)で、バイナリデータを使...
-
パイソンでのテキストデータの...
-
VBA。開いているテキストファイ...
-
テキストファイルの特定行の削...
-
テキストファイル内容の、16進...
-
StreamReaderで読み込んだファ...
-
テキストファイル固定長データ...
-
ファイル変換
-
STM32 Nucleo-F446REでデータを...
-
テキストファイルで一番使われ...
-
エクセルVBAでメールの自動作成...
-
テキストファイルのログをExcel...
-
UTF-8とASCIIコードにおける互...
-
フォーム無しでアプリを作成す...
-
テキストファイル内の文字の有...
おすすめ情報