| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 247 人关注过本帖
标题:读写文档,计算
只看楼主 加入收藏
liu753159
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2022-11-5
结帖率:0
收藏
 问题点数:0 回复次数:3 
读写文档,计算
一个文档中有
3456
8764
3374

分别读取每行四个数,并赋予某个数组。
搜索更多相关主题的帖子: 数组 文档 计算 读写 个数 
2022-11-15 21:36
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:31
帖 子:1767
专家分:2725
注 册:2009-12-22
收藏
得分:0 
代码一:

Private Sub Form_Load()
    Dim 数组() As String '定义一个动态数组
    Dim i As Integer
    Open "C:\Users\Admin\Desktop\1.txt" For Input As 1#   '打开输入文件
    Do While Not EOF(1)
        ReDim Preserve 数组(i)  '分配数组,保留原来的数据
        Line Input #1, 数组(i)  '读入数据
        i = i + 1
    Loop
    For i = 0 To UBound(数组)
        Debug.Print 数组(i)
    Next
   
    Debug.Print
    Debug.Print 数组(0)
   
    Close #1    '关闭文件
End Sub

代码二:

Private Sub Form_Load()
Dim data As String
Dim buffer As String
Dim str As String
Open "1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, buffer
data = data + buffer + vbCrLf
Loop
'MsgBox data
Close #1
S = Split(data, Chr(13) & Chr(10))  '以回车换行符作为分隔符
For i = 0 To UBound(S)
MsgBox S(i)
Next
End Sub

代码三:

Private Sub Form_Load()
Dim data As String
Dim buffer As String
Dim str As String
Open "1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, buffer
data = data + buffer + vbCrLf
Loop
'MsgBox data
Close #1
str = Replace(data, Chr(13) & Chr(10), ",") '回车换行符全部替换成逗号
S = Split(str, ",") '以逗号作为分隔符
For i = 0 To UBound(S)
MsgBox S(i)
Next
End Sub

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-11-16 10:16
liu753159
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2022-11-5
收藏
得分:0 

3456
8764
3374

读写一个数据,比如读出3456,分别赋值给abcd,计算a+b+c+d,然后在读取8764,再分别赋值给abcd,计算a+b+c+d,等等。
2022-11-16 15:56
mrexcel
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:3
帖 子:34
专家分:148
注 册:2022-11-3
收藏
得分:0 
以下是引用liu753159在2022-11-16 15:56:01的发言:


3456
8764
3374

读写一个数据,比如读出3456,分别赋值给abcd,计算a+b+c+d,然后在读取8764,再分别赋值给abcd,计算a+b+c+d,等等。

程序代码:
Sub Test()
    Dim s() As String, t(1 To 4) As Long, i&, j&, sum&
    Open "d:\1.txt" For Input As #1
    s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    For i = 0 To UBound(s)
        sum = 0
        For j = 1 To 4
            t(j) = Val(Mid(s(i), j, 1))
            sum = sum + t(j)
        Next
        s(i) = s(i) & "-->" & sum
    Next
    MsgBox Join(s, vbCrLf)
End Sub
2022-11-16 21:18
快速回复:读写文档,计算
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029132 second(s), 8 queries.
Copyright©2004-2022, BCCN.NET, All Rights Reserved