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ランキング
-
資格試験に向け、ipodで見れる...
-
C++でのテキストファイル読み込...
-
テキストファイルの各行を配列...
-
Perl エラーログを指定の場所...
-
C言語初心者です。プログラミン...
-
どこがおかしいですか?教えて...
-
1件だけ表示させる方法
-
ファイルの一部を別のファイル...
-
あるファイルないから日付指定...
-
今、「Python 3.8 32-bit」を使っ...
-
fopenでディレクトリ内の全ファ...
-
バッチファイルの作り方(CSV→...
-
ReadLineでの読み出し行を指定する
-
awkスクリプトでダブルクォーテ...
-
教えて!perlから.exeファイル...
-
MySQLに画像を格納してperlで取...
-
パスから最後のディレクトリだ...
-
ExcelをCSV書き出す場合のシー...
-
DOSコマンドで、標準出力を出力...
-
dos変数の%~dp0は powershellで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル名を複数個配列で確保...
-
一行だけ読込
-
Pythonでegrep機能をつかいたい
-
ifstream/ofstream について
-
「パスが見つかりません」とい...
-
shellのコマンド deffの差分の...
-
Perl エラーログを指定の場所...
-
MATLABでカーブフィットしたデ...
-
ifstream を利用した1行分のテ...
-
perlでCSVをソートする方法につ...
-
system関数と引数について
-
C++でのテキストファイル読み込...
-
連番のファイルを何個も開きたい
-
[perl] もっとシンプルに改良、...
-
Perl 重複カウント 上位3名
-
Pythonで非日本語のUnicode文字...
-
Pythonでテキストを行数指定し...
-
while文がうまく動かない
-
Fortranで1行飛ばして読み込む方法
-
あるファイルないから日付指定...
おすすめ情報