No.1ベストアンサー
- 回答日時:
Private Sub Command1_Click()
Dim intLoop As Integer
Dim strLines() As String
strLines = Get_TextLines(Text1.Text)
For intLoop = LBound(strLines) To UBound(strLines)
Debug.Print strLines(intLoop)
Next intLoop
End Sub
Private Function Get_TextLines(ByVal strPathFileName As String) As String()
Dim intFileNum As Integer
Dim strLine() As String
Dim intArrayCount As Integer
intFileNum = FreeFile()
intArrayCount = 0
Open strPathFileName For Input As intFileNum
Do Until EOF(intFileNum)
ReDim Preserve strLine(intArrayCount)
Line Input #intFileNum, strLine(intArrayCount)
intArrayCount = intArrayCount + 1
Loop
Close intFileNum
Get_TextLines = strLine
End Function
この回答へのお礼
お礼日時:2006/12/19 01:38
お返事ありがとうございます。
Open strPathFileName For Input As intFileNum
この行でファイル名または番号が不正ですエラーがでてしまうのですが、どうしてでしょうか?
No.2
- 回答日時:
Microsoft Scripting Runtime を参照設定すれば事前バインディングでいくなら
Dim lines As Variant
Dim fso As New FileSystemObject
lines = Split(fso.OpenTextFile("D:\test.txt").ReadAll, vbCrLf)
てな感じ。
参照設定せずに遅延バインディングでいくなら
Dim lines As Variant
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
lines = Split(fso.OpenTextFile("D:\test.txt").ReadAll, vbCrLf)
てな感じ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- C言語・C++・C# C言語 2 2022/07/21 00:02
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Ruby 初心者プログラミング 3 2022/10/12 11:31
- C言語・C++・C# c言語の問題です 2 2023/07/21 10:51
- C言語・C++・C# 10人分の生徒の英語の点数{32,34,41,38,40,26,14,46,42,50} と数学の点 2 2022/05/26 21:31
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Perl perlで2次元配列をサブルーチンに値渡しで渡す 5 2022/12/17 18:49
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- C言語・C++・C# c言語の問題です 課題1 (二分探索木とセット) 大きさ size の配列 array を考える。す 2 2023/01/10 21:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同じようなソースなのですが片...
-
C++でのテキストファイル読み込...
-
ファイル名を複数個配列で確保...
-
どなたか教えて下さい。
-
「パスが見つかりません」とい...
-
Fortranで1行飛ばして読み込む方法
-
perl での文章の取得について
-
VBAでCSVファイルの特定行を書...
-
VBAでCSVファイルを途中行まで...
-
batファイルでrenameができませ...
-
ExcelをCSV書き出す場合のシー...
-
awkスクリプトでダブルクォーテ...
-
DOSコマンドで、標準出力を出力...
-
Firefox で file:// で始まる U...
-
ファイル出力の改行コードをLFに
-
Perlの変数に文字数制限(容量...
-
fopenでディレクトリ内の全ファ...
-
[Perl]ファイル出力のエンコー...
-
エクセルVBA コードが同じでも...
-
巨大なテキストの最終行を取得...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル名を複数個配列で確保...
-
Pythonでegrep機能をつかいたい
-
Fortranで1行飛ばして読み込む方法
-
C言語初心者です。プログラミン...
-
テキストファイルの各行を配列...
-
C++でのテキストファイル読み込...
-
ファイルの内容をスカラー変数...
-
shellのコマンド deffの差分の...
-
<>で区切られたdatファイルをエ...
-
perlでCSVをソートする方法につ...
-
ifstream/ofstream について
-
perlの引数で複数のファイル処...
-
「パスが見つかりません」とい...
-
Perl エラーログを指定の場所...
-
Pythonでテキストを行数指定し...
-
文字列操作に関する質問です。
-
perlでIEのクッキーを削除したい
-
ファイル名に日付を入れてアッ...
-
連番のファイルを何個も開きたい
-
指定の行数目から行を抽出する
おすすめ情報