精华内容
下载资源
问答
  • VS2010打开txt文件并显示到txt文本框,然后将文本框内容保存至txt。
  • 免费VB打印控件(带源代码及示例)

    热门讨论 2010-04-05 20:10:32
    本控件可以打印眉页和页脚,还可以将打印的内容(包括图片)保存为本控件专用的报表格式文件,以便以后打开预览并打印(但不能更改页面格式)。 控件均以VB的内置单位TWIPS为计量单位,您可以使用本控件的cmtotwips...
  • vbio.zip 读写I/0口的VB源代码(18KB) 96,shellex5.zip Sellexecute demo Project(7KB) 97,inicon32.zip 在VB中实现访问WINDOWS INI 文件的源代码(26KB) 98,fileio.zip 读写保存文件的源...
  • 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

    展开全文
  • 本控件允许将当前打印预览的内容保存为报表文件,以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 9、Excel导出功能,可以将DataGridView导出为Excel文件,5.7版控件使用开源的NPOI导出Excel,...
  • VB程序设计及应用

    2012-11-26 14:07:12
    2.2.6 保存文件 2.2.7 生成可执行文件 2.3 修改和定制窗体 2.3.1 选择控件 2.3.2 控件的操作 2.4 工程的管理 2.4.1 工程的组成 2.4.2 习题 第 3章 VB程序设计的基础 3.1 命名规则和语法规则 ...
  • (1)“文件”菜单:打开保存及关闭项目,也可用于生成可执行文件,以及过的工程项目列表。 (2)“编辑”菜单:用于撤消所做的操作,执行:“查找”、“复制”、“粘贴”等编辑命令。 (3)“视图”菜单:用于在...
  • 5、首次实现代码归纳重写技术,对VBA/VB代码中所有名称,包括:变量名、自定义过程和函数名以及控件的名称,实行统一、毫无联系且无意义的重命名,降低非法得到的代码的可读性,从而在一定程度上保护代码。...
  • 可用来在VB,VC驱动摄像头,进行静帧捕捉的DLL动态链接库(必须要有摄像头生成StillCap0000.bmp):将MyDll文件解压后把MyDll.dllMyDll.lib一起拷入工程DEBUG目录(为保险起见DEBUG的外层目录也拷贝一份吧),...
  • 第二步:步骤2 打开记事本,在其中复制下面的XML代码文件名为CustomUI.xml,编码为UTF-8 保存到桌面customUI文件夹 label="佛山小老鼠工具" insertBeforeMso="TabHome"> 加解密"> imageMso=...
  • 由本人第一次尝试制作的录像视频教程,由于电脑速度较慢,播放时间较慢,请谅解。 本录像讲解最基础的VB封装ASP代码生成DLL的制作教程,适合初级学习者参考。也是本人学习VB制作ASP组件...在iis中打开文件,屏幕显示:
  • 本控件可以打印眉页和页脚,还可以将打印的内容(包括图片)保存为本控件专用的报表格式文件,以便以后打开预览并打印(但不能更改页面格式)。 控件均以VB的内置单位TWIPS为计量单位,您可以使用本控件的cmtotwips...
  • 有关更换歌词,如果对当前显示的歌词不满意,可手动点击此按钮,在随后出现的窗口会出现当前歌曲的所有可下载歌词,内容您设置的歌词引擎有关.选择其中一个,点击下载歌词即可,直到满意为止. j.有关专辑功能,激活后...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (73KB) 121,i012.zip 如何在vb中调用i/o口的例子(10KB) 122,i011.zip 演示连接/断开network(3KB) 123,i010.zip chat程序例子(12KB) 124,i009.zip 简单的邮件发送例子 (13KB) 125,i008....
  • 展开代码文件导航到某个类,展开类导航到类的成员等(仅C#和VB) 搜索解决方案类成员 过滤解决方案来查看打开的、未保存文件等 查看类、类成员的相关信息(类似C#的引用、调用关系) 鼠标移动到...
    1. 工具栏选项支持

      控制扩展特性的开启与关闭,查找扩展特性的相关配置。

    2. 解决方案导航器

      该扩展更像是一个增强的解决方案浏览器,通过它可以:

      1. 展开代码文件导航到某个类,展开类导航到类中的成员等(仅C#和VB)
      2. 搜索解决方案中类成员
      3. 过滤解决方案来查看打开的、未保存的文件等
      4. 查看类、类成员的相关信息(类似C#中的引用、调用关系)
      5. 鼠标移动到代码或图片上进行预览

      总之,它将解决方案浏览、类查看、对象浏览、调用层次、导航功能以及符号引用查找功能合并到了一个工具窗口中,同时提供了一些交互的小工具。但是并不包括解决方案浏览器中的所有功能,例如多文件选择和拖拽功能就不支持。

    3. 快速查询访问

      这个工具能够让你在vs中查询、执行通用的任务。如果你不确定某个菜单的位置,如果你想快速创建一个Silverlight项目,那么你可以用这个工具来更有效率的查找执行vs中的操作而不用离开键盘。通过它你可以:

      1. 执行主菜单和右键菜单的命令
      2. 打开选定项目模板的新建项目对话框
      3. 显示工具窗口
      4. 跳转到vs选项页面
      5. 导航到某个打开的文档
      6. 创建并执行一系列的操作

      通过Ctrl+3可以打开快速查询窗口,然后输入要查询的内容后回车即可查看结果,如果结果太多,可以继续Ctrl+3在结果集中继续查找。

    4. 自动符号完成

      该插件能够在你输入某个符号的时候自动匹配并插入对应的结束符号,具体功能有:

      1. 支持()、{}、[]、<>、""、''
      2. 通过Tab键导航到下一个结束符号
      3. C#中能自动完成声明,并通过SHIFT+ENTER转到下一行
    5. Tab功能

      该插件能够让你完全定制文档tab的行为,包括按照项目、字母顺序排序tab;按照tab所属项目或者正则表达式对tab进行颜色的区分,能够让你更好的识别不同项目的文档组;通过使用顺序来关闭tab等。

    6. 可查询的引用增加对话框

      该窗口能够让你更快更容易的找到你要查找的引用,并增加到项目中。

    7. 当前行高亮显示

      随着代码的增多,被标记的地方就越来越难找到,这个扩展可以将标记行高亮显示,让你更容易的找到它。标记的颜色也可以在工具选项的字体和颜色中进行设置。

    8. HTML复制

      该扩展能够让你从编辑器中以HTML的格式复制和剪切代码,这样当你将代码复制到TFS的bug表单或者其它基于HTML的控件中的时候,就不需要进行格式处理了。

    9. 三次点击选中行(重点推荐)
    10. Ctrl+Click跳转到定义(重点推荐)
    11. 解决混合Tab、Space使用

      有的人喜欢用tab键,有的人喜欢用空格键,但是几乎没有人喜欢两者混合使用,该扩展能够对混合使用tab和space的文件进行警告,并且提供快速的解决方法,将分隔符改变成你喜欢的tab或者space。

    12. 赋值对齐

      这个扩展对于提高代码可读性很有帮助,通过按下Ctrl+Alt+J,你就能将以下代码:

      this:
           
      And turns it into this:
          
      注意:这个可能与当前的格式设置有冲突。例如,在C#中你需要将"工具->选项->文本编辑器->C#->格式->空格->在声明语句中忽略空格"一项禁用。

    13. 通过ALT+Up Arrow或者Alt+Down Arrow在上下行间移动
    14. 列导航

      虽然之前有注册的key可以在代码编辑器中画一条垂直的线,来检测我们的代码或者注释是否超出了屏幕宽度,但这个扩展提供了配置界面来完成这个工作。

    15. 颜色化的参数帮助

      该扩展通过对C#、VB的参数帮助窗口中的内容应用语法高亮显示提高了编辑器的一致性。高亮颜色可以在字体和颜色菜单里面的"签名帮助"处进行定制。


      Form: 

      VS插件,好用,提高代码效率。Productivity Power Tools

    展开全文
  • Java从网络取得文件 1个目标文件 简单 Java从压缩包提取文件 1个目标文件 简单 Java存储读取对象 1个目标文件 如题 Java调色板面板源代码 1个目标文件 摘要:Java源码,窗体界面,调色板 使用Java语言编写的一款...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能的add-in(764KB) 663,spool.zip 打印文件的例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • 打开VB6,新建工程 添加部件Microsoft Internet Transfer Controls. 在form添加2个按钮,2个文本框和Inet控件 代码如下: Option Explicit ''这段代码使用了GetHeader来返回页面信息,比较准确一些 ''...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    涵盖了代码规范、运行模型、服务控件、验证控件、数据绑定技术、ADO.NET技术、数据库技术、文件操作等内容。 所列出的内容均是ASP.NET开发网站等应用的必备知识。我们在实训课题引入的前提下,通过一系列完整的案例...
  • 您可以自由弹奏乐曲,也可以将曲谱按规则编辑成文件,再用本软件打开文件,让本程序自动为您弹奏,还可以将弹奏过程录制下来,即时回放弹奏过程,或保存为录制乐谱文件(.pianoR 文件),再打开此类文件进行播放,...
  • MATLAB混合编程工程应用.pdf

    热门讨论 2010-05-19 10:32:48
    7.2.2 在VB 使用MatrixVB 的命令函数138 7.3 MatrixVB 的矩阵操作142 7.3.1 在VB 生成MatrixVB 矩阵142 7.3.2 对矩阵元素进行操作144 7.3.3 矩阵的保存与载入147 7.3.4 应用举例147 7.4 MatrixVB 的运算符151 ...
  • - 在 UltraEdit 比较(通过 FTP 打开的)文件会被断掉 - 如果文件保存,复制行时会跳到文件顶端 - 宏 * 不配对的引号将会导致宏编辑器出错 * 当保存宏定义后,宏内容丢失 * 添加“在文件中替换”或“在...
  • 中文API支持库(1.0-0

    2009-04-17 08:28:19
    _锁定文件() 在windows文件可用共享模式打开——在这种情况下,多个进程可同时访问该文件。利用这个函数,要对文件进行读写的一个应用程序可将文件的某一部分锁定起来,使其不能由其他应用程序访问。这样便避免...
  • 1、修正VB通过API调用保存对话框LZMA压缩冲突的BUG,出现压缩数据失败(已换一种模式重写LZMA的SDK,有效解决了这个问题); 2、修正WIN7下加密成功但不能生成文件的BUG; 3、修正用项目文件打开文件加密丢失...
  • 第5章VB应用程序与VB库140 5.1控制流程140 5.1.1分支语句140 5.1.2循环语句143 5.1.3其他函数145 5.2数值的处理146 5.2.1算术运算符146 5.2.2关系运算符147 5.2.3布尔和位运算符147 5.2.4舍入及截尾148 5.2.5在不同...
  • 第5章VB应用程序与VB库140 5.1控制流程140 5.1.1分支语句140 5.1.2循环语句143 5.1.3其他函数145 5.2数值的处理146 5.2.1算术运算符146 5.2.2关系运算符147 5.2.3布尔和位运算符147 5.2.4舍入及截尾148 5.2.5在不同...

空空如也

空空如也

1 2 3 4 5 6
收藏数 103
精华内容 41
关键字:

vb中打开与保存文件代码