将MsFlexGrid控件中显示的内容输出到文本文件

原创 2004年01月09日 10:03:00

'OutDataToText
'将MsFlexGrid控件中显示的内容输出到文本文件
Public Sub OutDataToText(Flex As MSFlexGrid) 
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim strTemp As String
    On Error GoTo Ert
    Me.MousePointer = 11
    On Error Resume Next
    DoEvents
    Dim FileNum As Integer
    FileNum = FreeFile
    Open "d:/aa.txt" For Output As #FileNum
        With Flex
            k = .Rows
            For i = 0 To k - 1
                strTemp = ""
                For j = 0 To .Cols - 1
                    DoEvents
                    strTemp = strTemp & .TextMatrix(i, j) & ","
                Next j
                Print #FileNum, Left(strTemp, Len(strTemp) - 1)
            Next i
        End With
    Close #FileNum
    Me.MousePointer = 0
    MsgBox "导出成功"
Ert:
    MsgBox Err.Description
    Me.MousePointer = 0
End Sub

将MSFlexGrid控件的内容输出到文本

OutDataToText  将MsFlexGrid控件中显示的内容输出到文本文件  Public Sub OutDataToText(Flex As MSFlexGrid)     Dim s As...
  • tomkai
  • tomkai
  • 2004年08月22日 17:25
  • 670

Dos命令窗口中内容输出到文本文件

今天被提问,在Dos窗口中执行命令的结果,由于内容较多,无法看到全部 能否有个方法把结果保存到指定的文件中   好久没碰过Dos了...   上网找了找,看到答案自己也想起来了,呵呵(苦笑....
  • bigheadsheep
  • bigheadsheep
  • 2013年03月26日 14:58
  • 10912

VB中从MSFlexGrid记录导出为Excel

机房收费系统中多个窗体用到从MSFlexGrid记录导出为Excel,在VB要导出数据到Excel中,首先要在引用中添加Microsoft  Excel 14.0 Object Library 引...
  • as19901130
  • as19901130
  • 2012年08月22日 17:40
  • 3804

PYQT中QThread输出到textBrowser

问题概述 在PYQT中,有时我们会需要将log信息等实时打印到ui控件上,但是由于PYQT的进程保护机制,我们无法像使用print函数中那样,直接使用就能打印出来信息。所以通常都会发现,PYQT中的...
  • hongbin_xu
  • hongbin_xu
  • 2018年01月25日 12:12
  • 196

C语言之文件操作02——输出文本文件中的内容显示在屏幕上

//文本文件的输出 /* =============================================================== 题目:输出文本文件中的内容显示在屏幕上! ==...
  • LZX19901012
  • LZX19901012
  • 2015年08月05日 02:48
  • 1866

VC6.0中基于MSFlexGrid(ActiveX控件)的可编辑表格的制作及其若干问题的解决方案

VC6.0中基于MSFlexGrid(ActiveX控件)的可编辑表格的制作及其若干问题的解决方案
  • fengbingchun
  • fengbingchun
  • 2011年04月27日 15:02
  • 3586

dos命令下把屏幕输出显示的内容保存为文本文件

dos命令下只需要在指令后加上一句“ >a.txt ”就可以把该指令执行完以后输出显示在屏幕上的内容全部保存到a.txt的文件中了。       例1:dir  >a.txt       将把当前目录...
  • gadflycq
  • gadflycq
  • 2014年05月27日 01:54
  • 585

C# 控制台内容输出到文件

1. 在代码的开头和结尾加两行代码就行了。 StreamWriter sw = new StreamWriter(@"F:\Test\ConsoleOutput.txt");  Conso...
  • CNHK1225
  • CNHK1225
  • 2017年05月12日 11:04
  • 745

vb MSFlexGrid控件的使用并根据内容调整列宽

Private Sub MSFGrid_dsj_Init()初始化Dim i As Integerconn.ConnectionString = strconnconn.Openrs.Open "se...
  • zxs820329
  • zxs820329
  • 2007年04月08日 16:14
  • 5234

Python:把help的结果输出至文件

如题。
  • qcyfred
  • qcyfred
  • 2017年11月13日 22:52
  • 229
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将MsFlexGrid控件中显示的内容输出到文本文件
举报原因:
原因补充:

(最多只允许输入30个字)