问答1 问答5 问答50 问答500 问答1000

在VB中,如何把一个TXT文档的每一行作为一个数组中的一个,如a(i)导入...

提问网友 发布时间：2024-03-28 16:37
声明声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:1656858193@qq.com
共3个回答
热心网友 回答时间：2024-03-28 23:03
方法一、

Open "D:\123.txt" For Binary As #1
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Arr = Split(s, vbCrLf)
'---------------------------------------------
方法二、

Dim Arr(), i As Long
Open "D:\123.txt" For Input As #1
While Not EOF(1)
ReDim Preserve Arr(i)
Line Input #1, Str
i = i + 1
Wend
Close #1
热心网友 回答时间：2024-03-28 23:00
Private Sub Command1_Click()
Open App.Path & "\三字经.TXT" For Binary As #1
S = Input(LOF(1), 1)
Close #1
Dim a
a = Split(S, vbCrLf) '至此已经完成，下面是看看结果
For i = LBound(a) To UBound(a) - 1
Debug.Print "a(" & i & ")："; a(i)
Next
End Sub
热心网友 回答时间：2024-03-28 22:56
dim i as long
i=1
open "这里写txt路径" for input as #1'打开
do while not EOF(1)
line input #1,a(i)
i=i 1
loop
close #1'关闭
还有问题可以加QQ:670476161

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

美国社会福利有哪些？34 VB文本框输出数组 手机老是没信号,而且SIM卡经常注册失败。 中美残疾人福利制度差异英文 残疾人移民美国有什么待遇，福利2 粤语里油炸蟹是什么意思 梦见棺材是什么兆头梦见棺材的寓意 2017指南者家享版,漆面有龟裂 2017款指南者家享版雨刮水什么时候添加 2017指南者左柱漏水 打架情节轻的怎么处理? the state of the end of the mi... 如何提高混合公共物品的效率2 骁龙865相当于电脑什么级别的处理器？84 现在最新的骁龙865是什么水平呢？15 安康到饶阳火车,k1574要路过那些车站?? js怎么发出命令打开收银箱1 佳博80160怎么设置钱箱4 徕卡小小八最适合带什么滤镜 徕卡IR滤镜是什么意思? 口袋妖怪复刻性格手游,大黄蜂要什么性格的才好 g1大黄蜂是什么车 英语翻译Important messageWe're sorry for the inconvenience,but i... 手机号已经注册过,怎么登录不上去? 一个手机号注册了两个,退出后怎么登不上去 厨房过水热怎么安装的呀? 为什么美国员工的福利还包括看牙医？3 美国公司有给员工发福利的习惯吗? 美国老板打算找我在中国开分公司，我应该如何保障自己的权益和帮... 祛斑产品如何祛斑 瓦尔特是c吗 扬州天乐湖温泉度假村的具体位置在哪? ...做会计。今天找到的工作,试用期两个月,2700,转正3200,社保和餐补都... 原来和男房东签的合同(生效中),现在女房东要求把钱给她,怎么办 我一个男的,在外面租房子,女房东老是缠着我说话,我不想和她说话,又怕... 女房东33岁了,挺耐看的不过离婚。我去租房子,可是后来她说她有事需要... 广州金盾网预约办理港澳通行证 青客公寓租房怎么样，他们是不是骗子？867 青客租房办的网贷，房子不租了，但青客工作人员房管员不取消解除... 都来说说青客公寓到底怎么样？好不好？203