精华内容
下载资源
问答
  • 主要介绍了VB实现按行读取文本文件的方法,涉及使用VB操作文件读取的相关技巧,需要的朋友可以参考下
  • vb读取文本文件的内容

    千次阅读 2019-11-09 14:12:18
    VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某文本。 Get 语句 将一个已打开的...

    VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某行文本。

    Get 语句
    将一个已打开的磁盘文件读入一个变量之中。
    StrConv 函数
    返回按指定类型转换的 Variant (String)。
    Split函数

    返回一个下标从零开始的一维数组,它包含指定数目的子字符串。
    InputBox 函数

    在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。

    以下是使用上述函数等的具体代码:

    Private Sub Command3_Click()
        Dim strWj As String
        Dim strJ() As String
        Dim aryContent() As Byte
        Dim i As Long
        Dim j As Long
        CommonDialog1.CancelError = True ' 设置“CancelError”为 True
        On Error GoTo ErrHandler
        CommonDialog1.Flags = cdlOFNHideReadOnly    ' 设置标志
        ' 设置过滤器
        CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
        CommonDialog1.FilterIndex = 2    ' 指定缺省的过滤器
        CommonDialog1.ShowOpen    ' 显示“打开”对话框
        ' 显示选定文件的名字
        'MsgBox CommonDialog1.FileName
        Open CommonDialog1.FileName For Binary As #1
            ReDim aryContent(LOF(1) - 1)
            Get #1, , aryContent
        Close #1
        strWj = StrConv(aryContent, vbUnicode)
        Text1 = strWj
        strJ = Split(strWj, vbCrLf)
        i = UBound(strJ)
        Text2 = i + 1
        j = InputBox("输入需要显第几句", j)
        j = j - 1
        Label1.Caption = j + 1 & ":" & strJ(j)
        Exit Sub
    ErrHandler:
        ' 用户按了“取消”按钮
        Exit Sub
    End Sub
    

    在这里插入图片描述

    展开全文
  • 思路:按行读取,将读取到的一行文本放置到一个临时变量T中,将每一个临时变量T连接到一个总的变量S中,如果发现读取到的这一行需要修改,那么将修改后再链接到S中,最后把S重新覆盖写入TXT文本中。...

    今天是我学习VB编程的第25天,今天学习了刘金玉老师的零基础VB教程第32期,内容是SUB过程与function自定义函数的异同。

    一、补充知识点:文本文件修改密码:修改密码本质上是修改文本文件内容中的某一行。

    思路:按行读取,将读取到的一行文本放置到一个临时变量T中,将每一个临时变量T连接到一个总的变量S中,如果发现读取到的这一行需要修改,那么将修改后再链接到S中,最后把S重新覆盖写入TXT文本中。

    二、自定义一个SUB

    Sub一般用在事件过程中。执行过程中的代码,它没有返回值。

    1.自定义sub的格式:

    ①没有参数的定义

    Sub过程名称()

    End sub

    ②带参定义

    Sub过程名称(形式参数as 类型,....)

    End sub

    2.调用方法:call 过程名称,或者call 过程名称(实际参数1,实际参数2,....)

    ③案例:

    Private Sub Command1_Click()

    Call calc(1, 2)

    Call hello

    End Sub

    Sub hello()

    Print "hello.world!计算OK”"

    End Sub

    Sub calc(a As Integer, b As Integer)

    Dim c%

    c = a + b

    Print c

    End Sub

    三、function自定义函数

    1.表达方法:

    ①没有参数,没有返回值。

    Function函数名称

    End function

    ②有参数,无返回值。

    Function函数名称(参数1 as 类型,....)

    End function

    ③有返回值。

    Function函数名称(参数1 as 类型,....)AS 返回值的类型

    函数名称=返回值

    End function

    2.调用方法

    ①无返回值的自定义函数,直接用call函数名称(参数,....)

    ②有返回值的自定义函数,在调用后要定义临时变量把返回值存起来。

    三、自定义sub和自定义function不同点:自定义sub没有返回值,而function可以有返回值。

    8b7d7e82411bc5e7a1ef3ed875145703.png
    展开全文
  • 如何去掉VB生成的txt文件中的黑块

    千次阅读 2007-03-07 11:38:00
    文件,用记事本打开时某些换行的地方出现黑块(而用写字板或word 无此现象)探讨原因:文本文件并不是根据回车符换行的而是用 回车符+换符 换行的每次在文本框中回车键实际上是生成了 回车符+换符有些文本...

    问题描述:

    VB编程生成的.txt.文件,用记事本打开时某些换行的地方出现黑块(而用写字板或word 无此现象)

    探讨原因:

    文本文件并不是根据回车符换行的
    而是用 回车符+换行符 换行的
    每次在文本框中按回车键实际上是生成了 回车符+换行符

    有些文本编辑器支持换行符换行(Unix系统的习惯)
    远程通信一般是用回车符换行(如HTTP协议)


    解决方法:

    假设str变量已经读取了文本数据:
    str = Replace(str, vbCrLf, vbLf) '将 回车符+换行符 替换成 换行符,防止误操作
    str = Replace(str, vbCr, vbLf) '将 回车符 替换成 换行符
    str = Replace(str, vbLf, vbCrLf) '将 换行符 替换成 回车符+换行符
    '输出 str

    展开全文
  • 思路:按行读取,将读取到的一行文本放置到一个临时变量T中,将每一个临时变量T连接到一个总的变量S中,如果发现读取到的这一行需要修改,那么将修改后再链接到S中,最后把S重新覆盖写入TXT文本中。...

    今天是我学习VB编程的第25天,今天学习了刘金玉老师的零基础VB教程第32期,内容是SUB过程与function自定义函数的异同。

    一、补充知识点:文本文件修改密码:修改密码本质上是修改文本文件内容中的某一行。

    思路:按行读取,将读取到的一行文本放置到一个临时变量T中,将每一个临时变量T连接到一个总的变量S中,如果发现读取到的这一行需要修改,那么将修改后再链接到S中,最后把S重新覆盖写入TXT文本中。

    二、自定义一个SUB

    Sub一般用在事件过程中。执行过程中的代码,它没有返回值。

    1.自定义sub的格式:

    ①没有参数的定义

    Sub过程名称()

    End sub

    ②带参定义

    Sub过程名称(形式参数as 类型,....)

    End sub

    2.调用方法:call 过程名称,或者call 过程名称(实际参数1,实际参数2,....)

    ③案例:

    Private Sub Command1_Click()

    Call calc(1, 2)

    Call hello

    End Sub

    Sub hello()

    Print "hello.world!计算OK”"

    End Sub

    Sub calc(a As Integer, b As Integer)

    Dim c%

    c = a + b

    Print c

    End Sub

    三、function自定义函数

    1.表达方法:

    ①没有参数,没有返回值。

    Function函数名称

    End function

    ②有参数,无返回值。

    Function函数名称(参数1 as 类型,....)

    End function

    ③有返回值。

    Function函数名称(参数1 as 类型,....)AS 返回值的类型

    函数名称=返回值

    End function

    2.调用方法

    ①无返回值的自定义函数,直接用call函数名称(参数,....)

    ②有返回值的自定义函数,在调用后要定义临时变量把返回值存起来。

    三、自定义sub和自定义function不同点:自定义sub没有返回值,而function可以有返回值。

    62874a5bf9327e1f4673a702bbe69c4d.png
    展开全文
  • 4、vb6保存(读取)数据到注册表里.txt 5、vb6背景色透明.txt 6、vb6打开任意类型的文件.txt 7、vb6打开网页.txt 8、vb6单击按钮复制文本框内的内容.txt 9、vb6单击按钮最小化窗体.txt 10、vb6点击最大化最小化和...
  • 还增加了以指定间距及字符间距打印文本的功能,可以用固定行距,也可以用单倍或多倍行距打印文本。 6、强大的绘图功能,基本上.NET的GDI+的绘图函数(如直线、矩形、路径、多边形、曲线等)都有,只有个别函数的名称...
  • 本DataGridView打印控件和.NET打印控件5.6版(含报表模板设计组件)2014年6月22日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以的),有帮助文档与使用实例。 与上一版本的5.5版...
  • 本DataGridView打印控件和.NET打印控件5.7版2014年11月2日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以的),有帮助文档与使用实例。 与上一版相比,控件5.7版的主要更改如下: 1...
  • 实例136 如何将一字符串分成一列字符 实例137 根据标点符号分行 实例138 去掉字符串中所有空格 实例139 去除字符串尾空格 5.4 字符串位置与长度 实例140 获得中英文混合字符串的字节长度 实例141 获得某个...
  • 实例136 如何将一字符串分成一列字符 实例137 根据标点符号分行 实例138 去掉字符串中所有空格 实例139 去除字符串尾空格 5.4 字符串位置与长度 实例140 获得中英文混合字符串的字节长度 实例141 获得某个...
  • rar压缩软件.rar

    2016-02-13 10:52:44
    列表文件是一个包括处理的文件名的纯文本文件。第一列应该以文件名开始。可以 在//字符后添加注释。例如,你可以创建包含下列字符串的 backup.lst: c:\work\doc\*.txt //备份文本文档 c:\work\image\*.bmp //...
  • WinRAR_4.0.exe

    2011-02-04 11:34:33
    列表文件是一个包括处理的文件名的纯文本文件。第一列应该以文件名开始。可以 在//字符后添加注释。例如,你可以创建包含下列字符串的 backup.lst: c:\work\doc\*.txt //备份文本文档 c:\work\image\*.bmp //...
  • 列表文件是一个包括处理的文件名的纯文本文件。第一列应该以文件名开始。可以 在//字符后添加注释。例如,你可以创建包含下列字符串的 backup.lst: c:\work\doc\*.txt //备份文本文档 c:\work\image\*.bmp ...
  • 可以将当前打印参数保存为打印方案文件,或都从保存的打印方案文件读取打印参数。 8、水印功能。根据需要,可以在页面中打印或不打印以半透明空心文字打印水印。 9、特殊文字效果功能。控件具有打印浮雕文字、...
  • 4. 保存和读取自定义格式文件; 5. 将矢量图以指定的尺寸保存为光珊图或者复制到系统粘贴板上; 6. 插入OLE对象,OFFICE文档。 7. 支持模型及其布局文件的浏览。 8. 在不打开文件的情况下,导入文件的某个图层; 9. ...
  • Excel_VBA教程

    2014-09-22 11:36:34
    17.读取分隔文本文件 155 18.往顺序文件里写数据 155 19.使用WRITE # 和PRINT # 语句 156 20.操作随机文件 157 21.创建用户定义的数据类型 157 22.操作二进制文件 161 23.操作文件和文件夹的时髦方法 162 24.使用WSH...
  • 子程序 打开多文件对话框, 文本型, 公开, 如果多选文件,返回文件路径以“;”(半角分号)分隔。失败或取消返回空文本。 .参数 窗口句柄, 整数型, 可空, 调用处窗口句柄 .参数 窗口标题, 文本型, 可空, 对话框窗口标题...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    17.读取分隔文本文件 155 18.往顺序文件里写数据 155 19.使用WRITE # 和PRINT # 语句 156 20.操作随机文件 157 21.创建用户定义的数据类型 157 22.操作二进制文件 161 23.操作文件和文件夹的时髦方法 162 24.使用WSH...
  • 实例213 读取并打开数据库中存储的文本文件 379 实例214 读取并打开数据库中存储的图片 380 实例215 读取并打开数据库中存储的多媒体 文件 382 实例216 将SQL Server数据库中的image数据 类型的图形文件导出为....
  • 实例213 读取并打开数据库中存储的文本文件 379 实例214 读取并打开数据库中存储的图片 380 实例215 读取并打开数据库中存储的多媒体 文件 382 实例216 将SQL Server数据库中的image数据 类型的图形文件导出为....
  • 程序2 向CBitmap中读取位图文件的快速方法 程序3 真彩滚轮 程序4 在24位颜色位图中直接访问像素 程序5 高品质的图像旋转 程序6 半透明位图 程序7 静态透明图像类 程序8 观察PCX文件 程序9 一个TWAIN的C++包 ...
  • DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1350多个精品易语言模块提供下载

    热门讨论 2011-06-06 17:51:09
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 1345个易语言模块

    2012-01-27 19:41:59
    DirectX8VB组件调用模块.ec disk.ec DisplaySettings.ec DIY 热键框模块.ec DLL.ec DLL注入模块.ec DOS命令模块.ec dqf1996.ec EC.EC edb-html.ec EdbServer1.0 客户端.ec EDB、高级表格、XLS互换.ec edb到...
  • 修改BUG:矢量动画支持库中的“矢量编辑框”组件在光标位于组件左上角时左光标键进入前一可能会导致显示错误或内存申请失败。 11. 修改BUG:网络传送支持库在使用代理下载时可能会导致程序崩溃。 12. 修改BUG...
  • 129.在特定的区域内查找文本,返回值是包含查找文本的单元格 130.返回特定区域中最大值的地址 131.删除表格中使用范围内的所有空白单元格 132.返回数组中有多少个指定的字符串 133.返回当前工作表中引用了指定的单元...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • F1可以继续启动,DEL进入CMOS 下面这张图为AMI公司开发的BIOS界面: AMI BIOS (C) 2006 American megatrends,INC.ASUS P5B-Delusxe ACPI BIOS Revision 0507 CPU: INTEL(R) CORE(TM)2 CPU 6400 @ 2.13GHz ...

空空如也

空空如也

1 2
收藏数 38
精华内容 15
关键字:

vb按行读取文本文件