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

access逐个字符读取文本文件

2018-03-12 08:34:00
tmtony8
原创
1469

access作为Office的组件且具备前台后开发的功能,既可以和excel,word这些常用文本编辑工具交互,也可以与文本文件(TXT)读写

用access读写TXT文本方法是很多的,可以用API,函数, 数据流等?#21462;?/p>


下面示例使用 Input 函数来逐个读取文本文件中字符。

如在当前目录下有文本文件“text1.txt”,文件内有文本“Office交流网”


在窗体中添加一个名为“读取文件”的按钮,按钮的单击事件详细源码:

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)    ' 读入一个字符。
        Me.Text1 = Me.Text1 & vbNewLine & str   ' 在文本框中显示
    Loop
    Close #1    ' 关闭文件。
    
    
End Sub



效果如图:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.14
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    美国版2o11壮志凌云百闻影视 福彩3d走势图综合版 汉诺威96vs勒沃库森直播 pt电子游戏交流吧 维戈塞尔塔皇家贝蒂斯 博洛尼亚进程利弊 拜仁慕尼黑球员阵容 国米桑普多利亚视频 瓦赫德对伊蒂哈德 冰球突破手机游戏