安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

access逐行读取文本文件

2018-03-14 16:52:00
tmtony8
原创
1568

前面我们讲过如何从文本文件中逐个?#22336;?#35835;取《access逐个?#22336;?#35835;取文本文件

又有网友?#23454;?#22914;何不用逐个?#22336;?#24819;整行读取。



用Line Input # 语句可以从已打开的顺序文件中读出一行并

如下图中,文本文件有两行数据,需依次读取




详细源码,从顺序文件中读入一行数据,并将该行数据赋予一个变量

Private Sub 读取文件_Click()
    
    Dim strPath As String
    strPath = CurrentProject.Path & "\text1.txt"
    
    Dim str As String
    Open strPath For Input As #1    ' 打开文件。
    Do While Not EOF(1)    ' 循环至文件尾。
'        str = Input(1, #1)    ' 读入一个?#22336;?        Line Input #1, str   '读取一行记录
        
        Me.Text1 = Me.Text1 & vbNewLine & str    ' 在文本框中显示
    Loop
    Close #1    ' 关闭文件。
    

End Sub



读取成功:


注意:

Line Input # 语句一次只从文件中读出一个?#22336;?#30452;?#25509;齙交?#36710;符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过,而不会被附?#25317;階址?#20018;上。

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.14
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    上海百乐门九爷 十一选五开奖结果辽宁 东方珍兽返水 神龙碎片游戏 礼记四灵 戴图理的神奇七怎么玩 新疆风采35选7走势图 正中红心走势图 街头烈战 游戏 虎爪子