Vb調用文本文件並將其存儲在數組中。

拆分功能可用於拆分文本。如果您按下回車和換行符，您可以將每行文本分成壹個數組。妳想取哪壹行？您可以使用文本to fetch = array（I-1）來獲取它。取出數據後，使用Clng函數將其轉換為整數。

Dim FreeFileNum作為字符串

Dim tempStr作為字符串

將inputList顯示為字符串

Dim inputListArr（）作為字符串

Dim DataArr（）作為字符串

dim DataArrClng（）As Long

暗淡的我只要

FreeFileNum = FreeFile

出錯時退出

tempStr = App。路徑與方法。“\yjjs.txt“

將輸入的tempstr作為# freefilenum“打開文件打開。

input list = strconv（input b $（LOF（FreeFilenum），1），VB Unicode）‘將文件導入文本變量。

“Close #FreeFileNum”關閉文件。

inputlistarr = split（input list，vbcrlf）‘文本行拆分為壹個字符串數組。

data arr = Split（inputListArr（0），““）‘將第壹行文本按空格排列成字符串數組。

對於I = LBound（data arr）至UBound（data arr）

DataArrClng（I）= Clng（Val（data arr（I）））

然後

這樣，DataArrClng整數數組包含第壹行中的所有數據。我默認在這裏用空格分隔每個數字。