1

次のような配列を定義したいと思います。

sample_array = Array( _
"foo", _
"bar", _
...
"dog", _
"cat" _
)

...VB for Applications (この場合は PowerPoint 2010) で記述されたマクロでは、次のように書式設定されたテキスト ファイルから配列を定義する必要があります。

foo
bar
...
dog
cat

テキスト ファイル パスを定義し、値 (常に通常の ASCII 文字列であると仮定) を配列に直接読み込む最も簡単な方法は何ですか?

ありがとう！

4

2 に答える 2

6

ファイル全体を一度にロードし、次のように改行で分割できます

Sub read_whole_file()
    Dim sFile As String, sWhole As String
    Dim v As Variant
    sFile = "C:\mytxtfile.txt"
    Open sFile For Input As #1
    sWhole = Input$(LOF(1), 1)
    Close #1
    v = Split(sWhole, vbNewLine)
End Sub
于 2014-05-27T07:55:39.943 に答える