精华内容
下载资源
问答
  • vb6.0源码 word自动填写

    2015-09-29 14:11:18
    word自动根据模板填写 结尾部分是导入的一个txt文件里面有普通文本和逗号分隔符文本混合的内容 普通内容有的要居中有的要加粗 逗号分隔美容需要导入到word识别为表格形式添加. 这只是一个例子仅供参考 需要代写的...
  • 图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要数据,VB来讲,中小型的数据一般用Access数据库,大型的数据多用SQL server数据库,这些以后再讲,今天主要了解如何读写txt文本文件。...

    f591cc2627aa263e69ed8e86bb570dce.png
    No.7 读写txt文件​mp.weixin.qq.com
    75f1563f2ae913951c8d7a38558c167e.png

    许多程序需要读写数据,比如商品管理,图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要写数据,VB来讲,中小型的数据一般用Access数据库,大型的数据多用SQL server数据库,这些以后再讲,今天主要了解如何读写txt文本文件。

    如何读取txt

    在生活中,我们要看一本书,先找到这本书,然后打开,开始读,读完了要合上书,放回原处,然后别人再读。在程序中,过程是一样的,我们新建一个工程,在窗体上放一个label标签控件,一个Text文本框控件,一个Command按钮控件,在C盘根目录新建一个文本文件,重命名为1.txt,在txt中写入张明并保存,如图设置:

    1612de4274ccfbe15895a065ec78b21b.png

    2a40732fa8fbb2ed88d215adae574a97.png

    在Command1的单击事件中写下面的代码:

    663bc7dc9d04e32235b59b93ee6a7a27.png

    我来解释每一个代码的含义:

    Open 是打开文件,相当于你读书前要翻开书一样。

    "C:1.txt" 是文件的地址,就像你读书前要知道这本书在哪一样。

    For Input 是打开的方式,Input是读取,以这种方式打开文件时,文件必须存在,否则会产生错误。也就是说,刚才如果C盘根目录没有这个1.txt程序就会报错。

    As #1 为打开的文件指定文件号.对文件进行读写操作时,要用文件号表示该文件.文件号是介于1~511之间的整数。

    Line Input #1, a 的意思是读取第一行并赋值给a。

    Close #1 是关闭这个文件,然后释放文件号,也就是你看完书,合上,放回原处。

    运行效果:

    c2692f2651b37011d84f765d04e0d2db.gif

    如何写入txt

    我们在原有的窗体上再加上一个标签,一个文本框,一个按钮,如图:

    4cd8b8e8a802b0ea3888192bc6bf2ba2.png

    然后在"写入"按钮的单击事件中写入如下代码:

    88064a45039f1834d8453c745d0c2e7e.png

    我们发现只有两处代码不一样,其他都一样,相同的部分我们就不解释了,我们来看不同的:

    For Output表示向打开的文件中写入数据。以这种方式打开文件时,文件中原有的数据将被覆盖,新的数据将从文件开始写入。如果文件不存在,则创建一个新文件。如果刚才C盘根目录没有1.txt,程序就会自动创建一个。

    Print #1, a ,这里Print是输出,也就是把a写入到#1里面。

    用这种方式打开文件,写入的时候会覆盖原有的数据,形成一个新的数据,比如原来的txt文件里面是张明,我们写入"李亮"以后,就会把"张明"覆盖,看下运行效果:

    b1296f26fb0dce21f023c762775eb868.gif

    读取方式还有一种:

    For Append,表示向打开的文件中添加数据。以这种方式打开时,文件中原有的数据将被保留,新的数据将从文件开始添加。如果文件不存在,则创建一个新文件。

    我们把写入的读取方式改为For Append ,用这种方式打开文件,写入"李亮"的时候,会在原有的数据上增加,并不会把"张明"覆盖。我们看下效果:

    我们把打开方式改为 Append :

    ccbcc15b178808a4d6964d6e371a7880.png

    效果图:

    e2d33d1e5c3d1ee65abd2be56519f092.gif

    读写txt有什么用

    虽然txt用来储存数据不规范,但是也有一定的用途,比如可以当做程序的配置文件,举个例子,我们把上面的代码稍加改动,在窗体加载的时候读取"C:1.txt"里面的数值,并把按钮的字体大小设置成这个数值,就可以当一个简易的程序配置文件:

    代码:

    d5a7b37134dfe075f7a71becf50ab236.png
    展开全文
  • VB读写文本文件

    千次阅读 2019-11-14 08:59:08
    把字符串保存到.txt文本文件。 读取文本文件(或读取某一行)参考这篇 1、代码 '----------------------- '把文本输出到文本文件 '----------------------- Function WriteTxt(FilePath As String, str As String) ...

    把字符串保存到.txt文本文件。

    读取文本文件(或读取某一行)参考这篇

    1、代码

    '-----------------------
    '把文本输出到文本文件
    '-----------------------
    Function WriteTxt(FilePath As String, str As String)
        Open FilePath For Append As #1
        Print #1, str
        Close #1 '
    End Function
    

    2、测试代码

     Dim data_str As String
     data_str="我是测试字符串" &  vbCrLf
     noth = WriteTxt("test.txt", data_str) '把data_str字符串输出到test.txt文本文件
    

    写操作语句:

    Print语句和Write语句: 格式:Print #文件号,[表达式表],Write #文件号,[表达式表] 两者差别:
    ※Write语句通常用紧凑格式输出,即各数据项之间用逗号分割,在写入文件时,数据项之间会自动用逗号作为分界符分割开。而Print语句中的表达式之间因所用分隔符逗号或分号的不同,其数据项间的位置不同,且不会自动加入定界符。
    ※Write语句通常与Input#读语句配合使用,Print语句常与Line Input读语句配合使用。
    ※Write语句通常用于数据写入文件后还要用VB程序读出时;而Print语句通常用于写入文件的数据以后要被显示或打印出来时,作为格式输出语句。

    展开全文
  • 1今天,我们共同来学习VB编程开发的围棋游戏实现过程,以帮助大家更好的运用VB去编写程序。围棋的实现,主要是综合应用了VB编程的核心知识,比如图形、算法、控制结构、数组、过程、高级控件等的应用。程序运行图...

    大家好,每一天,我们都要有新的目标,这样才能激励自己不断进步与提高!

    a21f40ab61ad914558bbe4edde5d755c.gif

    1

    今天,我们共同来学习VB编程开发的围棋游戏实现过程,以帮助大家更好的运用VB去编写程序。

    围棋的实现,主要是综合应用了VB编程的核心知识,比如图形、算法、控制结构、数组、过程、高级控件等的应用。

    ecdf718d54edcf9357431b32df9e6ced.png

    程序运行图

    围棋实现代码

    Option Explicit

    Dim Board(0 To 18, 0 To 18) As Byte    '此数组标识棋盘上每个点是否有子:0 无子,1 黑,2 白子

    Dim lastnum As Integer                 '最新放置棋子的位置号

    Const HDist As Integer = 250

    Const VDist As Integer = 800

    Const Grid As Integer = 250

    Private Sub cmdRemoveBlack_Click()     '移除黑子

        Dim i As Integer

        For i = 0 To 360

            If Board(i Mod 19, i \ 19) = 1 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False

        Next

        Call CountChess

    End Sub

    Private Sub cmdRemoveWhite_Click()    '移除白子

        Dim i As Integer

        For i = 0 To 360

            If Board(i Mod 19, i \ 19) = 2 Then Board(i Mod 19, i \ 19) = 0: shpChess(i).Visible = False

        Next

        Call CountChess

    End Sub

    Private Sub cmdUndo_Click()            '撤消最后一步

        shpChess(lastnum).Visible = False

        Board(lastnum Mod 19, lastnum \ 19) = 0

        Call CountChess

    End Sub

    Private Sub Command1_Click()

        Unload Me

    End Sub

    Private Sub Form_Load()

        '窗体加载时,使用直线控件数组生成19*19的围棋盘

        Dim i As Integer

        Randomize

       '生成横线

        For i = 1 To 18

             Load LinH(i)

        Next

        For i = 0 To 18

             LinH(i).Visible = True

             LinH(i).X1 = HDist

             LinH(i).Y1 = VDist + Grid * i

             LinH(i).Y2 = VDist + Grid * i

             LinH(i).X2 = HDist + Grid * 18

        Next

        '生成竖线

        For i = 1 To 18

            Load LinV(i)

        Next

        For i = 0 To 18

            LinV(i).Visible = True

            LinV(i).Y1 = VDist

            LinV(i).X1 = HDist + Grid * i

            LinV(i).Y2 = VDist + Grid * 18

            LinV(i).X2 = HDist + Grid * i

        Next

        '生成棋子

       For i = 1 To 360

           Load shpChess(i)

            shpChess(i).FillStyle = 0

            shpChess(i).FillColor = vbWhite

       Next

       For i = 0 To 360

            shpChess(i).Top = (i \ 19) * Grid + VDist - 100

            shpChess(i).Left = (i Mod 19) * Grid + HDist - 100

            shpChess(i).Visible = True

       Next

       '读取已存的棋局

       If Dir("save.txt") <> "" Then

            Open "save.txt" For Input As #1

            For i = 0 To 360

                Input #1, Board(i Mod 19, i \ 19)

            Next

            Close

       End If

        Call CountChess

    End Sub

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

       Dim i As Integer

       Dim j As Integer

        '计算行列

        i = (X - HDist) / Grid

        j = (Y - VDist) / Grid

        '防止下标越界

        If i > 18 Then i = 18

        If i < 0 Then i = 0

        If j > 18 Then j = 18

        If j < 0 Then j = 0

        If Shift = 0 Then           '加子

            lastnum = j * 19 + i

            If Board(i, j) = 0 Then

                Select Case Button

                    Case 1

                         shpChess(lastnum).FillColor = vbBlack

                         Board(i, j) = 1

                    Case 2

                         shpChess(lastnum).FillColor = vbWhite

                         Board(i, j) = 2

                End Select

                shpChess(lastnum).Visible = True

            Else

                MsgBox "此处有子,不能落子。"

            End If

        ElseIf Shift = 2 Then     '按住Ctrl键去子

            If Board(i, j) <> 0 Then

                Select Case Button

                    Case 1

                         If Board(i, j) = 1 Then

                            shpChess(i + 19 * j).Visible = False

                            Board(i, j) = 0

                         End If

                    Case 2

                        If Board(i, j) = 2 Then

                            shpChess(i + 19 * j).Visible = False

                            Board(i, j) = 0

                        End If

                End Select

            Else

                MsgBox "此处无子,不能提子。"

            End If

        End If

        Call CountChess

    End Sub

    '退出时,保存当前棋局

    Private Sub Form_Unload(Cancel As Integer)

        Open "save.txt" For Output As #1

        Dim i As Integer

        For i = 0 To 360

            Write #1, Board(i Mod 19, i \ 19),

        Next

        Close #1

    End Sub

    Private Sub Timer1_Timer()

    Static i As Integer

    Dim j As Integer

        If i = 0 Then

            For j = 0 To 360

                shpChess(j).FillColor = vbBlack

            Next

            i = i + 1

        Else

            For j = 0 To 360

                If Board(j Mod 19, j \ 19) = 1 Then

                    shpChess(j).FillColor = vbBlack

                ElseIf Board(j Mod 19, j \ 19) = 2 Then

                    shpChess(j).FillColor = vbWhite

                Else

                    shpChess(j).Visible = False

                End If

            Next

            Timer1.Enabled = False

        End If

    End Sub

    Sub CountChess()

      Dim total As Byte, black As Byte, white As Byte

      Dim i As Integer

      Dim j As Integer

      For i = 0 To 18

        For j = 0 To 18

            If Board(i, j) = 1 Then

                black = black + 1

            ElseIf Board(i, j) = 2 Then

                white = white + 1

            End If

        Next

     Next

     txtBlack.Text = black

     txtWhite.Text = white

     txtTotal.Text = black + white

     If total = 361 Then MsgBox "Game Over"

    End Sub

    1

    上面就是用VB编程实现围棋开发的整个过程了,在VB知识掌握的前提下,综合应用逻辑思维,根据程序要实现的功能,写代码实现。

    a92fec26f621dd0908753e39fca06259.png更多VB游戏●扫雷游戏如何用VB编程实现?●俄罗斯方块游戏如何用VB编程来实现?●VB编程制作贪吃蛇游戏!VB编程开发--坦克大战游戏的开发

    VB编程,功能强大,简单易学,下面是用VB编程开发的部分实际程序展,供大家参考学习。

    VB编程

    VB是世界上使用人数最多的编程语言之一,广泛应用在我们工作和社会生产活动的方方面面。

    在当今信息技术日新月异的时代,编程语言的学习更是对自己的综合能力有很大影响,而VB因其可视化、面向对象、简单易学的特点是最适合学习的编程语言。因此,学好VB编程就显得非常重要了。

    下面,我们共同来看一下VB实际项目程序展示。

    01

    利用VB与数据库结合开发的

    自助点餐系统

    实现了自助推荐、根据人群自动

    匹配菜谱功能

    并且具有自动结算、下单、统计功能

    eaf097f262990f5b994781574865b916.png

    02

    利用VB与串口通信结合开发的

    超市收银支付系统

    fed95f31955ed163a4ff43b15c08cce6.png

    销售清单列表

    信息全面,便于总账统计

    e3eb8b5a3d81b476917028dac855b0da.png

    03

    利用VB开发的九宫格抽奖系统

    实现了抽奖与背景音乐的完美融合

    0951928fac322a4c9135f9f57b18243d.png

    04

    VB开发的基本程序

    2d9aa1d101378ec67a887b26ce2e4b48.png

    05

    酒店管理系统

    具有订房、退房

    结算和用户管理、权限管理等多重功能

    2bb7fcf1b1d16bdbd8ae0a755fbf3fbb.png

    06

    生产任务自动安排系统

    cf14c7f827209161f18807459f9b4557.png

    学习VB

    掌握一门编程

    跟上互联网时代发展节奏

    学习VB中有问题或者需要VB视频教程资料可添加老师微信号:vbyjk521 ,学习问题在线答疑。

    b59220809134c877e1ab9a6740c4158d.png



    f10b0c5ec76c1f16a5d15c45ba251cba.gif a26afd11f755a6bbcd0a4ec918adebd2.png

    长按上图,关注跟我学VB公众平台

    展开全文
  • VB网页转换为txt保存

    2010-03-07 00:16:59
    VB网页转换为txt保存txt自动转变成网页文件,txt文件分割器等等多功能合一,分割单位是指定大小的
  • 内容索引:VB源码,网络相关,文件分割 vb6文件分割、打开网页并...用它打开一个远程网址,本工具会自动显示该网址的网页,并可以将网页保存TXT文本,有时候我们遇到有些网页禁止点右键复制,用本工具可以帮上你的忙。
  • Java访问权限控制源代码 1个目标文件 摘要:Java源码,文件操作,权限控制 Java访问权限控制,为Java操作文件、写入文件分配合适的权限,定义到文件的信息、定义文件,输出到c:/hello.txt信息到文件、关闭输出流...
  • 记得以前使用vb6.0的时候,对文本文件的操作挺麻烦的,特别是在文件的时候,需要区分什么顺序文件、随机文件,很教材都专门针对文本文件的读写开辟了一个章节来讲解,够麻烦的了。现在使用.net读写文本文件,因为...

    作者: ll_efort 发布时间:2008-08-11 09:00:24 来源: 网络
    工作需要,小编需要使用vb.net对文本文件进行读写操作。编程需要完成如下工作:
    1、把程序执行错误追加到错误日志中
    2、使巧巧读书网的编辑能够读取错误日志
    记得以前使用vb6.0的时候,对文本文件的操作挺麻烦的,特别是在写文件的时候,需要区分什么顺序文件、随机文件,很教材都专门针对文本文件的读写开辟了一个章节来讲解,够麻烦的了。现在使用.net读写文本文件,因为时间仓促,没来得及细看MSDN,同时受到6.0的思路影响,把问题复杂化了,在追加记录到文本文件尾部的时候就写不下去了,后来仔细看了一下MSDN中例子,问题终于得到了解决。
    好了下面进入正题,分别把VB.NET中对文本文件进行读和写的通用操作做个示例,免得后来新手多走弯路。
    我们这里是对文件流进行操作,所以模块前面要加上:
    Imports System.IO
    1、写操作:
    使用System.IO的StreamWriter,下面是代码:
    Dim strFilePath As String = SaveFileDialog1.FileName
    Dim sw As StreamWriter = New StreamWriter(strFilePath, True)'true是指以追加的方式打开指定文件

    For i = 0 To j
        temp = i.ToString
        sw.WriteLine(temp)
        sw.Flush()
    Next
    sw.Close()
    sw = Nothing
    

    首先要说明的是构造函数new
    Public Sub New(path, append, Encoding)
    path:要打开文件的完整路径,如果文件不存在则自动建立一个新的文件。
    append:缺省值为false,指示是否以追加方式打开指定文件。false–如果存在path指定的文件,则覆盖原文件,否则建立一个新文件;true—如果存在path指定的文件,则打开该文件,以追加数据的方式在文尾写数据,否则建立一个新文件。
    Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码写文件。
    WriterLine(str):在文本中添加一个新行,同时在行尾加上回车换行符
    2、读操作

    Dim line As String
    Dim sr As StreamReader = New StreamReader(strPath, System.Text.Encoding.Default)
    Do While sr.Peek() > 0
         line = sr.ReadLine()
    Loop
    sr.Close()
    sr = Nothing
    

    构造函数new

    Public Sub New(Path, Encoding)
    

    path:要打开文件的完整路径,如果文件抛出一个错误。
    Encoding:缺省值为System.Text.Encoding.Default,即使用系统缺省的编码,指示以什么样的编码读文件。
    到这里就把VB.NET里对文本文件的读写操作示例讲解完了,其实.net中对文件的读vb.net教程写还有其它的办法,这里讲的只是最实用的办法,其它的有待读者进一步研究!

    展开全文
  • WINCC用VB读写数据库以及EXCEL导出

    千次阅读 多人点赞 2020-03-16 23:24:07
    本文主要是介绍WINCC7.4 用VB来读写SQL server数据库,网上有不少这类例子,实现功能的方法也很多,但是能完整介绍并且贴出所有编码的还是比较少,今天的这个例子,我会先把所有的内容先截图展示,然后再提供整个...
  • 抽空的小东东,大名叫今日事今日毕,每天可以给自己添加N个任务,然后去完成,包括任务自动提醒功能,未完成任务保存,完成任务存档,背景音乐等功能。
  • VB做的通讯录,内容详细,自动存储,下次打开有效。
  • 完美可用-DirectX修复工具增强版DirectX Repair

    万次阅读 热门讨论 2018-12-06 11:19:34
    开启简约模式的方法是:打开程序所在目录下的“Settings.ini”文件(如果没有可以自己创建),将其中的“FormStyle”一项的值改为“Simple”并保存即可。  新版程序支持命令行运行模式。在命令行中调用本程序,...
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
    假设已经将welcome.cs文件保存在d:\Charp目录下,启动命令行提示符,在屏幕上输入一行命令:d:回车,cd Charp回车,键入命令: C:\WINNT\Microsoft.NET\Framework\v1.0.3705\csc welcome.cs 如果一切正常welcome.cs...
  • VB文件读写

    2015-10-08 15:33:11
    vb使用open方法读写文件 (一)打开和关闭文件  1、顺序文件  打开顺序文件,我们可以使用Open语句。它的格式如下: Open pathname For [Input |Output |Append] As [#]filenumber [Len =...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java访问权限控制,为Java操作文件、写入文件分配合适的权限,定义到文件的信息、定义文件,输出到c:/hello.txt信息到文件、关闭输出流。 Java绘制图片火焰效果 1个目标文件 摘要:Java源码,图形操作,火焰...
  • TIA博途WINCC中通过VBS脚本执行向文件中读写数据的具体操作步骤
  • Java输入输出流

    千次阅读 多人点赞 2017-02-18 17:07:20
    这里总结从外存读取数据到内存以及将数据从内存到外存中。对于内存和外存的理解,我们可以简单的理解为容器,即外存是一个容器,内存又是另外一个容器。那又怎样把放在外存这个容器内的数据读取到内存这个容器以及...
  • vb接受串口数据并实时显示

    热门讨论 2013-11-01 13:26:41
    本程序通过串口通讯采集数据,并将数据通过kchart控件绘制成实时曲线,另外程序还可将数据保存txt文档进行读写。
  • VB串口通信源码210个

    千次下载 热门讨论 2013-10-15 11:32:27
    001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 ...092、VB自动枚举系统串口加摄象头图象采集,坐标系变换 093、Visual Basic2005与自动化系统监控(串并行控制)光盘
  • VB打开记事本并写入数据然后保存

    千次阅读 2010-11-18 23:46:00
    VB打开记事本并写入数据然后保存 Dim  FileName As  String CommonDialog1.ShowSave  '如果你不用CommonDialog控件,就删除这一句和下面两句 If  CommonDialog1.FileName =  ...
  • 打开一个文本文件,按ctrl-Z键自动复制一行文本到剪贴板中,然后粘贴到需要的地方
  • vb2005的一个txt文本阅读器,可以存书签,关闭时自动保存阅读位置,下次打开时自动载入上次的文本和进度。运行时需要framework2.0环境的支持
  • 数据导出到Excel的6种方法(VB6)

    千次阅读 2020-02-12 12:48:04
    数据导出到Excel的6种方法(VB6) 在数据操作中,特别是与数据库相关的操作中,我们需要经常导出数据到Excel表格中,下面我们提供了六种方式来将数据导出到Excel表格中: 如果大家C币比较多的话,可以直接下载我整理好...
  • Dim strFile As String = String.Format("C:\ErrorLog.txt", DateTime.Today.ToString("dd-MMM-yyyy")) File.AppendAllText(strFile, String.Format("Error Message in Occured at-- {0}{1}", DateTi...
  • Open "c:\vb\test.txt" For Input As #1 Do Until EOF(1)  Line Input #1, strLine  text1.Text = text1.Text + strLine + Chr(13) + Chr(10) Loop Close #1  此段代码逐行读取一个文件到文本框中。  (2)Input...
  • 前段时间用vb做了一个小软件,用来将下位机存储的运行记录(txt格式)转为excel格式。源代码如下,供需要借鉴的朋友来下载,代码有点乱,但是功能是经过验证了的。本来是想将工程作为附件插入进来,弄了半天居然没有...
  • 自己最近做了一个关于VB.NET开发的串口调试程序,实现了和下位机DSP的通信,并且实现了...同时接受两路数据并以streamwrite的形式自动保存到.txt文件中。  Dim bvMaternal As BitVector32  Dim bvFetal As BitVecto
  • txt读取程序

    2018-04-20 10:10:54
    自动读取制定目录中的文件内容,转发到服务器数据库保存

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 5,808
精华内容 2,323
关键字:

vb写自动保存txt