精华内容
下载资源
问答
  • vb写了一个程序,会产生数据保存到.txt文档中,想要达到可以由用户自己选择保存路径的效果,就是在操作界面中设置一个按钮,然后选择保存路径,请问可以办到吗?谢谢
  • 下面是将Text1中数据可存电脑上代码 Dim SaveFile As String SaveFile "D: 服务器外网IP地址 txt" " open app path & " 服务器外网IP地址 txt" For output as #1 Open SaveFile For ...
  • 自己最近做了一个关于VB.NET开发的串口调试程序,实现了和下位机DSP的通信,并且实现了...同时接受两路数据并以streamwrite的形式自动保存到.txt文件中。  Dim bvMaternal As BitVector32  Dim bvFetal As BitVecto

    自己最近做了一个关于VB.NET开发的串口调试程序,实现了和下位机DSP的通信,并且实现了实时画图功能,DSP把整形数据(占4个byte),左移后通过DMA方式先发高位,接收后用位段方式转化为整型。同时接受两路数据并以streamwrite的形式自动保存到.txt文件中。

        Dim bvMaternal As BitVector32
        Dim bvFetal As BitVector32
        Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)
        Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255, sec1)
        Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255, sec2)
        Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255, sec3)

    画图函数的实现:

        Private Sub draw()


            'Maternal signal coordinate
            Dim mtlY2 As Single
            Dim mtlX2 As Single
            Dim mtlY1 As Single
            Dim mtlX1 As Single
            'Fetal signal coordinate
            Dim ftlY2 As Single
            Dim ftlX2 As Single
            Dim ftlY1 As Single
            Dim ftlX1 As Single


            Dim mypenMaternal As New Pen(Color.Red, 1)
            Dim mypenFetal As New Pen(Color.Green, 1)
            Dim mygraphMaternal As Graphics
            Dim mygraphFetal As Graphics
            'Maternal signal drawing setup
            mygraphMaternal = Me.picBoxMatenal.CreateGraphics

            'X-axis and Y-axis Adjust parameter Get:

            Dim XnumericUpDownVal As Integer = NumericUpDownX.Value
            Dim YnumericUpDownVal As Integer = NumericUpDownY.Value


            'Use FromImage method to creat an graphics object with bitmap
            'mygraphMaternal = Graphics.FromImage(m_objDrawingMatSurface)


            mygraphMaternal.PageUnit = GraphicsUnit.Point
            mygraphMaternal.TranslateTransform(0, picBoxMatenal.Height / 2)
            'Fetal signal drawing setup
            mygraphFetal = Me.picBoxFetal.CreateGraphics

            'Use FromImage method to creat an graphics object with bitmap
            'mygraphFetal = Graphics.FromImage(m_objDrawingFetSurface)


            mygraphFetal.PageUnit = GraphicsUnit.Point
            mygraphFetal.TranslateTransform(0, picBoxFetal.Height)

            mtlY2 = DataMaternal(Me.receiveDisplay_count) / YnumericUpDownVal
            mtlX2 = Me.receiveDisplay_count / XnumericUpDownVal
            mtlY1 = DataMaternal(Me.receiveDisplay_count - 1) / YnumericUpDownVal
            mtlX1 = (Me.receiveDisplay_count - 1) / XnumericUpDownVal
            'Fetal signal coordinate
            ftlY2 = DataFetal(Me.receiveDisplay_count) / YnumericUpDownVal
            ftlX2 = Me.receiveDisplay_count / XnumericUpDownVal
            ftlY1 = DataFetal(Me.receiveDisplay_count - 1) / YnumericUpDownVal
            ftlX1 = (Me.receiveDisplay_count - 1) / XnumericUpDownVal
            'Dim MaternalPoints As Point() = {New Point(mtlX1, mtlY1), New Point(mtlX2, mtlY2)}
            'Dim FetalPoints As Point() = {New Point(ftlX1, ftlY1), New Point(ftlX2, ftlY2)}
            mygraphMaternal.DrawLine(mypenMaternal, mtlX1 + 16, -mtlY1 * 126, mtlX2 + 16, -mtlY2 * 126)
            mygraphFetal.DrawLine(mypenFetal, ftlX1 + 16, -ftlY1 * 126, ftlX2 + 16, -ftlY2 * 126)
            'mygraphMaternal.DrawCurve(mypenMaternal, MaternalPoints, 1.0F)
            'mygraphFetal.DrawCurve(mypenFetal, FetalPoints, 1.0F)


            'clean up
            mygraphMaternal.Dispose()
            mygraphFetal.Dispose()
            'Force the form to paint itself, this triggers the Paint event
            'Me.picBoxMatenal.Invalidate()
            'Me.picBoxFetal.Invalidate()

        End Sub



    展开全文
  • vb接受串口数据并实时显示

    热门讨论 2013-11-01 13:26:41
    本程序通过串口通讯采集数据,并将数据通过kchart控件绘制成实时曲线,另外程序还可将数据保存到txt文档进行读写。
  • 在程序运行时将数据存入一个txt文件中,假设这个文件叫1号,然后点击Button1 按钮,获取1号的绝对路径,然后将该路径写入2号txt文件中保存。希望大神能指教。以前只学过简单vb。没有vb.net 基础,希望代码能最...
  • 在EXCEL中通过宏VB编程实现导出EXCEL中的内容到txt文件: 1. Office 2007中新建/打开一个Excel文件,命名为book1.xls,注意后缀,并且填充数据   2. 点击 视图 > 宏 > 录制宏 > 停止宏 &...

    在EXCEL中通过宏VB编程实现导出EXCEL中的内容到txt文件:

    1. Office 2007中新建/打开一个Excel文件,命名为book1.xls,注意后缀,并且填充数据

     

     

    2. 点击 视图 > 宏 > 录制宏 > 停止宏 > 查看宏 >编辑宏(写VB代码) >保存

     

    Sub Macro1()
          Dim objApp  As Object
          Dim objWbk  As Object
          Dim objSht  As Object
          Dim i&, strTemp$, strWorkBook$
       '工作簿文件名你自己处理
       strWorkBook = "D:\VB\book1.xls"
       Set objApp = CreateObject("Excel.Application")
       Set objWbk = objApp.Workbooks.Open(strWorkBook)
       Set objSht = objWbk.Sheets(1)    '要导出哪张表,你自己处理
       '输出的文本文件名自己处理
       Open "D:\VB\Book1.txt" For Output As #1
       i = 5    '从第5行开始
       Do
          strTemp = objSht.Cells(i, 1).Text
          '你没说结束行的条件,我就假设A列为空表示数据结束
          If (strTemp = "") Then Exit Do
          'objSht.Cells(i, 1) 是A列
          'objSht.Cells(i, 2) 是B列
          'objSht.Cells(i, 5) 是E列
          '每行数据如何分隔单元,你自己处理
          strTemp = strTemp & ", " & objSht.Cells(i, 2) & ", " & objSht.Cells(i, 5)
          Print #1, strTemp
          i = i + 1
       Loop
       Close #1
       objWbk.Close False
       Set objSht = Nothing
       Set objWbk = Nothing
       Set objApp = Nothing
       MsgBox "数据导出完毕!", vbInformation
    End Sub
    

     


     

     

     

    3.启用宏

    打开.xls文件后,有个警告和一个"选项"按钮,点击之,然后选中"启用此内容"选项

     



     
     

     

    4.查看.txt中的结果

     A5, B5, E5

    A6, B6, E6

    A7, B7, E7

    A8, B8, E8

    A9, B9, E9

    A10, B10, E10

    A11, B11, E11

    A12, B12, E12

     

     

     

    展开全文
  • NetSpider vb

    2011-11-16 10:59:01
    开发初衷:为能演示更多的WEB组件,所以写该程序时更多在于考虑能使用... 在功能菜单启动网络蜘蛛后,数据分析线程将会启动,所解析数据将会写入NetSpider\bin\Data\UrlDB.mdb的Microsoft Office Access数据库。
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    VB中防止将重复项目添加列表框控件中 22 , 22.txt VB中用Multimedia MCI控件开发多媒体应用 23 , 23.txt Win Api在VB中的妙用 24 , 24.txt WINDOWS SCRIPT HOST对象在VB中的使用 25 , 25.txt 安装向导生成程序组并...
  • 4、vb6保存(读取)数据到注册表里.txt 5、vb6背景色透明.txt 6、vb6打开任意类型的文件.txt 7、vb6打开网页.txt 8、vb6单击按钮复制文本框内的内容.txt 9、vb6单击按钮最小化窗体.txt 10、vb6点击最大化最小化和...
  • Whole Code Explained:我有这个代码将txt文件保存为Microsoft Excel逗号分隔值文件(.csv)然后打开一个空白模板excel文件与一个名为Graphs的工作表 . 然后它将包含csv文件中所有数据的工作表复制模板excel文件中,...

    Whole Code Explained:

    我有这个代码将txt文件保存为Microsoft Excel逗号分隔值文件(.csv)然后打开一个空白模板excel文件与一个名为Graphs的工作表 . 然后它将包含csv文件中所有数据的工作表复制到模板excel文件中,将其重命名为“data”然后在关闭后删除csv . 然后代码在“图表”表中插入图表 . 接下来,它会查找使用的总行数和用于图表中范围的引用的列数,然后查找以后的公式 . 该数据是来自特定频率的加速度计的加速度 . 因此有很多数据,8193行!数据布局是顶行标签(hz,Part1,2 ...),A列是频率,B2的所有其他单元格:无论是加速度计读数 .

    The Problem 执行以下循环需要83.22秒,这会插入平均公式:

    Do While i <= LastRow

    'Assign Range To Take Average

    CellLeft = wbtempXl.Worksheets("Data").Cells(i, 2)

    CellRight = wbtempXl.Worksheets("Data").Cells(i, LastColumn)

    AvgRange = wbtempXl.Worksheets("Data").Range(CellLeft, CellRight)

    Average = appXL.WorksheetFunction.Average(AvgRange)

    wbtempXl.Worksheets("Data").Cells(i, LastColumn + 1).Value = Average

    i = i + 1

    Loop

    在此平均公式之后,我将添加峰值查找逻辑以查找数据中的峰值和谷值,但仅此步骤需要一分半钟 . 有没有一种快速,更好的方法来做到这一点?循环的公式是 .

    注意:我不能只在模板中使用公式 . 测试可包括12份或100份 . 每个部分都有自己的列,频率在A列的行中 . 其余的行是每个频率的加速度读数 . 会张贴图片但不允许 .

    完整代码:

    Public Sub btn_Do_Click(sender As Object, e As EventArgs) Handles btn_Do.Click

    Dim FileTXT As String = cbo_FileList.Text

    Dim folderpath As String = "C:\Users\aholiday\Desktop\Data Dump"

    Dim txtpath As String = folderpath & "\" & FileTXT & ".txt"

    Dim csvpath As String = "C:\Temp\" & FileTXT & ".csv"

    Dim FinalFile As String = "C:\Users\aholiday\Desktop\Test"

    Try

    File.Copy(txtpath, csvpath)

    Catch

    MsgBox("Please Choose File")

    Exit Sub

    End Try

    appXL = CreateObject("Excel.Application")

    appXL.Visible = True

    wbcsvXl = appXL.Workbooks.Open(csvpath)

    wbtempXl = appXL.Workbooks.Open(FinalFile)

    wbcsvXl.Worksheets(FileTXT).Copy(After:=wbtempXl.Worksheets("Graphs"))

    wbtempXl.Worksheets(FileTXT).Name = ("Data")

    'Close Objects

    wbcsvXl.Close()

    File.Delete(csvpath)

    'Release Objects

    wbcsvXl = Nothing

    ' Declare Varables

    Dim Chart As Excel.Chart

    Dim ChartXL As Excel.ChartObjects

    Dim ThisChart As Excel.ChartObject

    Dim SerCol As Excel.SeriesCollection

    Dim Series As Excel.Series

    Dim xRange As Excel.Range

    Dim xCelltop As Excel.Range

    Dim xCellBottom As Excel.Range

    Dim yRange As Excel.Range

    Dim yCelltop As Excel.Range

    Dim yCellBottom As Excel.Range

    Dim CellRight As Excel.Range

    Dim CellLeft As Excel.Range

    Dim AvgRange As Excel.Range

    Dim Average As Double

    Dim LastRow As Long

    Dim LastColumn As Long

    Dim i As Integer

    ' Set i integer

    i = 2

    'Make Chart

    ChartXL = wbtempXl.Worksheets("Graphs").ChartObjects

    ThisChart = ChartXL.Add(0, 0, 800, 400)

    Chart = ThisChart.Chart

    Chart.ChartType = Excel.XlChartType.xlXYScatterSmoothNoMarkers

    With ThisChart.Chart

    .HasTitle = True

    .ChartTitle.Characters.Text = "RF Graph"

    ' X,Y title??????

    End With

    'Count Rows Used

    'Find last Row Used

    With wbtempXl.Worksheets("Data")

    LastRow = .UsedRange.Rows.Count

    End With

    'Count Columns Used

    'Find Last Column Used

    With wbtempXl.Worksheets("Data")

    LastColumn = .UsedRange.Columns.Count

    End With

    Do Until i > LastColumn

    'Excel Chart X Axis Values

    xCelltop = wbtempXl.Worksheets("Data").Cells(2, 1)

    xCellBottom = wbtempXl.Worksheets("Data").Cells(LastRow, 1)

    xRange = wbtempXl.Worksheets("Data").Range(xCelltop, xCellBottom)

    'Excel Chart Y Axis Values

    yCelltop = wbtempXl.Worksheets("Data").Cells(2, i)

    yCellBottom = wbtempXl.Worksheets("Data").Cells(LastRow, i)

    yRange = wbtempXl.Worksheets("Data").Range(yCelltop, yCellBottom)

    'Label Part in Data Sheet

    wbtempXl.Worksheets("Data").Cells(1, i).Value = ("Rotor " & i - 1)

    'Add New Series to Chart

    SerCol = Chart.SeriesCollection

    Series = SerCol.NewSeries

    'Rename and Assign Values

    With Series

    .Name = ("Rotor " & i - 1)

    Series.XValues = xRange

    Series.Values = yRange

    End With

    Chart.Refresh()

    i = i + 1

    Loop

    'Add Average Column Label

    wbtempXl.Worksheets("Data").Cells(1, LastColumn + 1).Value = "Average"

    'Rest i integer

    i = 2

    Do While i <= LastRow

    'Assign Range To Take Average

    CellLeft = wbtempXl.Worksheets("Data").Cells(i, 2)

    CellRight = wbtempXl.Worksheets("Data").Cells(i, LastColumn)

    AvgRange = wbtempXl.Worksheets("Data").Range(CellLeft, CellRight)

    Average = appXL.WorksheetFunction.Average(AvgRange)

    wbtempXl.Worksheets("Data").Cells(i, LastColumn + 1).Value = Average

    i = i + 1

    Loop

    'Release Objects

    wbtempXl = Nothing

    appXL = Nothing

    GC.Collect()

    Me.Close()

    End Sub

    展开全文
  • 然后把你想要恶搞的人的名字输入到txt文件中,记住一定要分行,每个名字占一行,想添加的名字不够10个的话,剩下的每行随便输入一些字符串就可以了,(只要能让名单.txt里刚好有十行数据就可以了)。然后保存txt文件...
  • ├─Example063-将Access表中数据按一定格式存储到Txt文件 ├─Example064-使用Access报表 ├─Example065-压缩和修复数据库 ├─Example066-设置数据库密码 ├─Example067-修改数据库密码 ├─Example068-使用...
  • vbio.zip 读写I/0口的VB源代码(18KB) 96,shellex5.zip Sellexecute demo Project(7KB) 97,inicon32.zip 在VB中实现访问WINDOWS INI 文件的源代码(26KB) 98,fileio.zip 读写保存文件的源...
  • d015_chunkole.zip 将多媒体文件保存到数据库中,或将数据库中的多媒体文件显示出来(90KB) 43,d014_dbpic.zip 把图片放数据库中(19KB) 44,d013_dbgrid3.zip 使用没有连接数据库的 DBGrid 控件(5...
  • c#学习笔记.txt

    2008-12-15 14:01:21
    结构类型的变量直接包含结构的数据,而类类型的变量包含对数据的引用(该变量称为对象)。 struct 类型适合表示如点、矩形和颜色这样的轻量对象。尽管可能将一个点表示为类,但结构在某些方案中更有效。在一些情况下...
  • 在一小时内学会 C#(txt版本)

    热门讨论 2009-08-19 18:09:37
    我主要使用 .NET 1.1/2.0, C#, VB.NET, ASP.NET, VC++ 6, MFC, ATL, COM/DCOM, SQL Server 2000/2005等。最近我在学习 .NET 3.x 的全部内容。我的免费源代码和文章网站是 http://aishai.netfirms.com 职业:团队带头...
  • FMLDATA的源码

    2014-06-02 15:57:42
    Dim dt As Date Set sht = ThisWorkbook.Worksheets("sheet1") '假设数据保存到sheet1 fmldataPath = "d:\dzh2\fmldata\" 'FMLDATA所在路径 fileName = "000001.12345.day" '文件名 FileNumber = FreeFile Open ...
  • 短信猫开发

    2014-12-30 14:51:07
    5.可以设置接收的新消息的输入方式,可以自动保存到SIM,也可直接从串口输入,此种情况本控件会自动处理保存到message/ComX_AutoRec.txt文件里(X是串口号) 6.当接收短信在SIM里已满时将接收不新的消息,这时...
  • rar压缩软件.rar

    2016-02-13 10:52:44
    如果输出文件名没有指定,注释数据会被发送标准输出设备。 例子: 1) rar cw oldarch comment.txt 2) rar cw -scuc arc unicode.txt 3) rar cw arc d 从压缩文件中删除文件。请注意,如果这个命令导致...
  • WinRAR_4.0.exe

    2011-02-04 11:34:33
    如果输出文件名没有指定,注释数据会被发送标准输出设备。 例子: 1) rar cw oldarch comment.txt 2) rar cw -scuc arc unicode.txt 3) rar cw arc d 从压缩文件中删除文件。请注意,如果这个命令导致...
  • 电子书架

    2006-03-16 00:00:00
    功能特点 电子书架的功能特点是:快速的资料截取、迅捷的资料查找、清晰的资料管理、丰富的格式转换、方便的电子书制作、安全的资料保存、多用户支持、Delphi及VB代码文本格式化等等,具体功能特点如下: ...
  • 8 支持保存PDF等多种文档服务器和本地 支持保存PDF、HTML、TXT文档服务 器和本地 9 自定义菜单、自定义按钮、自定义工具栏 支持自定义菜单、自定义按钮、自定 义工具栏,进一步增强了系统的可集成性。 10 ...
  • 文本播放器

    2006-02-23 09:05:59
    Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim ld As New SpeechLib.SpVoiceDim qorx As BooleanDim wb As StringPrivate...
  • 8. 系统软件和数据库直接安装在你公司内部的自己的电脑服务器上,只要可以上INTERNET就可以远程操作使用软件,比所谓的“托管软件”更加操作自如,更加放心,更加安心,可以把所有绝密的公司资料放心保存到自己的...
  • rarfiles.lst 包含用户定义的文件列表,告诉RAR添加文件固实压缩文件时的顺序。 它可以包含文件名通配符和指定项目-$default。默认项目定义了这个文件中与其他 项目不相符时的顺序清单位置。 注释字符是 ';'....
  • 数据由系统或应用程序写注册表,作为二进制值以十六进制的格式显示在注册表编辑器中。 ===================================================== 链接 REG_LINK 一个 Unicode 字符串,它命名一个...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小技巧。 Java数组倒置...
  •  静态编译后的易语言EXE/DLL之间不能再共享譬如窗口、窗口组件等类似资源,对于已经静态连接一个EXE/DLL中的支持库,该支持库中的数据或资源将不能再被其它EXE/DLL中所使用的同名支持库访问。这是因为代码被分别...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小技巧。 Java数组倒置...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     Java数据压缩与传输实例,可以学习一下实例化套按字、得到文件输入流、压缩输入流、文件输出流、实例化缓冲区、写入数据到文件、关闭输入流、关闭套接字关闭输出流、输出错误信息等Java编程小技巧。 Java数组倒置...

空空如也

空空如也

1 2 3
收藏数 49
精华内容 19
关键字:

vb保存数据到txt