精华内容
下载资源
问答
  • VB6调用WINAPI读写其他应用程序文本框内容,包含了一些访问数据库,调用webservice,读写XML文档,读写EXCEL文档的代码。
  • VB.net小技巧——读取文本文件并显示文本框中 第一步,工具箱添加OpenFileDialog控件 第二步 openfiledialog 属性 filter设置为: 文本文件(*.txt)|*.txt|配置文件(*.ini*)|*.ini*|所有文件(*.*)|*.* 第三步 ...

    VB.net小技巧——读取文本文件并显示到文本框中

    第一步,在工具箱添加OpenFileDialog控件
    在这里插入图片描述
    第二步 openfiledialog 属性 filter设置为:

    文本文件(*.txt)|*.txt|配置文件(*.ini*)|*.ini*|所有文件(*.*)|*.*
    

    第三步 添加如下代码:(先添加一个按钮和Box)

        Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
            If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
                Try
                    Box3.Text = OpenFileDialog2.FileName
                    Box2.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog2.FileName, System.Text.Encoding.Default) '读取TXT文件内容ANSI编码
                Catch ex As Exception
                    MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
        End Sub
    
    展开全文
  • vb读取文件并在文本框中显示

    千次阅读 2010-07-15 22:50:00
    Dim Str1 As String Dim Str2 As String Dim StrFileName As String StrFileName = App.Path & "/1.txt" '获取文本文件路径 Open StrFileName For Input As #1 '打开文件 Do Until EOF(1) '判断是否末尾 Line ...

        Dim Str1 As String
        Dim Str2 As String
        Dim StrFileName As String

        StrFileName = App.Path & "/1.txt" '获取文本文件路径
        Open StrFileName For Input As #1 '打开文件
        Do Until EOF(1) '判断是否末尾
            Line Input #1, Str1 '逐行读取
            Str2 = Str2 & Str1 & vbCrLf '获取文本 'vbCrLf 回车符
        Loop
        Text1.Text = Str2  'text1的MultiLine设置为ture
        Close #1

    展开全文
  • 摘要:VB源码,系统相关,DOS,文本框 VisualBasic6.0外连接DOS显示文本框思路,源码说明:  1. 本程序代码内已进行相关标识,以便学者学习  2.很多系统信息和操作都可调用DOS操作  3.创建如下控件:  mand1,Text1,...
  • NI文件读取 INI文件是Windows系统最早采用的文本文件格式,C:驱动器根目录往往都会存在着一个隐藏的boot.ini文件,它用来定义计算机启动时显示的系统... 一个ini文件读写类的设计和实现 bichengguibichenggui ...
  • Vb文本框设为只读

    2021-05-12 20:15:19
    内容索引:VB源码,界面编程,文本框,只读 Vb文本框设为只读,文本窗口是只读窗口,设置为可读写窗口,可以进行读写,思路是将背景设置为白色,将背景设置为灰色。
  • Vb文本框设为只读,文本窗口是只读窗口,设置为可读写窗口,可以进行读写,思路是将背景设置为白色,将背景设置为灰色。
  • Set mrc = ExecuteSQL(txtSQL, MsgText) '得到student表,并显示出来 'select得到的临时表,游标指向尾记录,Access指向第一条 mrc.MoveFirst End Sub Private Sub viewData() txtStudentno.Text ...
        Dim mrc As ADODB.Recordset  
      
    Private Sub cmdQuery_Click()    
        Dim txtSQL As String
        Dim MsgText As String
    
        txtSQL = "select * from student_Info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        Call viewData
    	’调用该函数
    
        Set txtMoney.DataSource = mrc
        txtMoney.DataField = "cash"
    End Sub
    
    Private Sub Form_Load()
         Dim MsgText As String
         Dim txtSQL As String
    
        
        txtSQL = "select * from student_Info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)    '得到student表,并显示出来
        
        'select得到的临时表,游标指向尾记录,在Access中指向第一条
        
        mrc.MoveFirst         
        
    End Sub
    
    Private Sub viewData()
        
        txtStudentno.Text = mrc.Fields(1)
        txtstudentName.Text = mrc.Fields(2)            ' 把临时表中当前记录赋给文本框
        txtsex.Text = mrc.Fields(3)
        txtDepartment.Text = mrc.Fields(4)
        txtGrade.Text = mrc.Fields(5)
        txtClassno.Text = mrc.Fields(6)
        txtstatus.Text = mrc.Fields(10)
        txtcomment.Text = mrc.Fields(8)
        txtMoney.Text = mrc.Fields(9)
    
    End Sub

    注:       

          文本框的DataField属性:

          返回/设置一个值,将控件绑定到当前记录的一个字段。

          DataSource属性:

          设置一个数值,指出数据控件通过它将当前控件绑定到数据库。

    展开全文
  • Word中可插入文本框,在文本框中可添加文本、图片、表格等内容。本篇文章通过C#程序代码介绍如何来读取文本框中的文本、图片和表格等内容。附VB.NET代码,有需要可作参考。 【程序环境】 程序中所需必要的程序集...

    【概述】

    Word中可插入文本框,在文本框中可添加文本、图片、表格等内容。本篇文章通过C#程序代码介绍如何来读取文本框中的文本、图片和表格等内容。附VB.NET代码,有需要可作参考。

    【程序环境】

    程序中所需必要的程序集文件Spire.Doc.dll,及其他相关dll文件(见下文)。

    用于测试的Word源文档如图:

    【程序代码】

    1.读取文本框中的文本

    所需程序集:

    【C#】

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using System;
    using System.IO;
    using System.Text;
    
    namespace ExtractText
    {
        class Program
        {
            static void Main(string[] args)
            {
                //加载Word源文档
                Document doc = new Document();
                doc.LoadFromFile("test.docx");
    
                //获取文本框
                TextBox textbox = doc.TextBoxes[0];
    
                //创建StringBuilder类的对象
                StringBuilder sb = new StringBuilder();
    
                //遍历文本框中的对象,获取文本
                foreach (object obj in textbox.Body.ChildObjects)
                {
                    if (obj is Paragraph)
                    {
                        String text = ((Paragraph)obj).Text;
                        sb.AppendLine(text);
                    }
                }
    
                //保存写入的txt文档到指定路径
                File.WriteAllText("ExtractedText.txt", sb.ToString());
                System.Diagnostics.Process.Start("ExtractedText.txt");
            }
        }
    }
    

    【vb.net】

    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    Imports System.IO
    Imports System.Text
    
    Namespace ExtractText
    	Class Program
    		Private Shared Sub Main(args As String())
    			'加载Word源文档
    			Dim doc As New Document()
    			doc.LoadFromFile("test.docx")
    
    			'获取文本框
    			Dim textbox As TextBox = doc.TextBoxes(0)
    
    			'创建StringBuilder类的对象
    			Dim sb As New StringBuilder()
    
    			'遍历文本框中的对象,获取文本
    			For Each obj As Object In textbox.Body.ChildObjects
    				If TypeOf obj Is Paragraph Then
    					Dim text As [String] = DirectCast(obj, Paragraph).Text
    					sb.AppendLine(text)
    				End If
    			Next
    
    			'保存写入的txt文档到指定路径
    			File.WriteAllText("ExtractedText.txt", sb.ToString())
    			System.Diagnostics.Process.Start("ExtractedText.txt")
    		End Sub
    	End Class
    End Namespace
    

    文本读取结果:

    2.读取文本框中的图片

    所需程序集:

    【C#】

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using System;
    
    namespace ExtractImg
    {
        class Program
        {
            static void Main(string[] args)
            {
                //加载Word源文档
                Document doc = new Document();
                doc.LoadFromFile("test.docx");
    
                //获取文本框
                TextBox textbox = doc.TextBoxes[0];    
    
                int index = 0 ;
                //遍历文本框中所有段落
                for (int i = 0 ; i < textbox.Body.Paragraphs.Count;i++)
                {
                    Paragraph paragraph = textbox.Body.Paragraphs[i];
                    //遍历段落中的所有子对象
                    for (int j = 0; j < paragraph.ChildObjects.Count; j++)
                    {
                        object obj = paragraph.ChildObjects[j];
                        
                        //判定对象是否为图片
                        if (obj is DocPicture)
                        {
                            //获取图片
                            DocPicture picture = (DocPicture) obj;
                            String imageName = String.Format("Image-{0}.png", index);
                            picture.Image.Save(imageName, System.Drawing.Imaging.ImageFormat.Png);
                            index++;
                        }
                    }
                }
                     
            }
        }
    }
    

    【vb.net】

    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    
    Namespace ExtractImg
    	Class Program
    		Private Shared Sub Main(args As String())
    			'加载Word源文档
    			Dim doc As New Document()
    			doc.LoadFromFile("test.docx")
    
    			'获取文本框
    			Dim textbox As TextBox = doc.TextBoxes(0)
    
    			Dim index As Integer = 0
    			'遍历文本框中所有段落
    			For i As Integer = 0 To textbox.Body.Paragraphs.Count - 1
    				Dim paragraph As Paragraph = textbox.Body.Paragraphs(i)
    				'遍历段落中的所有子对象
    				For j As Integer = 0 To paragraph.ChildObjects.Count - 1
    					Dim obj As Object = paragraph.ChildObjects(j)
    
    					'判定对象是否为图片
    					If TypeOf obj Is DocPicture Then
    						'获取图片
    						Dim picture As DocPicture = DirectCast(obj, DocPicture)
    						Dim imageName As [String] = [String].Format("Image-{0}.png", index)
    						picture.Image.Save(imageName, System.Drawing.Imaging.ImageFormat.Png)
    						index += 1
    					End If
    				Next
    			Next
    
    		End Sub
    	End Class
    End Namespace
    

    图片读取结果:

    3.读取文本框中的表格

    所需程序集:

    【C#】

    using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using System.IO;
    using System.Text;
    
    namespace ExtractTable
    {
        class Program
        {
            static void Main(string[] args)
            {
                //加载Word文档
                Document doc = new Document();
                doc.LoadFromFile("test.docx");
    
                //获取文本框
                TextBox textbox = doc.TextBoxes[0];
    
                //获取文本框中表格
                Table table = textbox.Body.Tables[0] as Table;
    
                StringBuilder sb = new StringBuilder();
    
                //遍历表格中的段落并提取文本
                foreach (TableRow row in table.Rows)
                {
                    foreach (TableCell cell in row.Cells)
                    {
                        foreach (Paragraph paragraph in cell.Paragraphs)
                        {
                            sb.AppendLine(paragraph.Text);
                        }
                    }
                }
                File.WriteAllText("ExtractedTable.txt", sb.ToString());
            }
        }
    }
    

    【vb.net】

    Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    Imports System.IO
    Imports System.Text
    
    Namespace ExtractTable
    	Class Program
    		Private Shared Sub Main(args As String())
    			'加载Word文档
    			Dim doc As New Document()
    			doc.LoadFromFile("test.docx")
    
    			'获取文本框
    			Dim textbox As TextBox = doc.TextBoxes(0)
    
    			'获取文本框中表格
    			Dim table As Table = TryCast(textbox.Body.Tables(0), Table)
    
    			Dim sb As New StringBuilder()
    
    			'遍历表格中的段落并提取文本
    			For Each row As TableRow In table.Rows
    				For Each cell As TableCell In row.Cells
    					For Each paragraph As Paragraph In cell.Paragraphs
    						sb.AppendLine(paragraph.Text)
    					Next
    				Next
    			Next
    			File.WriteAllText("ExtractedTable.txt", sb.ToString())
    		End Sub
    	End Class
    End Namespace
    

    表格数据读取结果:

    【总结】

    以上是本文关于通过C#程序读取Word中的文本框的方法。所附VB.NET代码供参考。

    另推荐阅读《Java 读取Word文本框中的文本、图片和表格

     

    (本文完,如需转载,请务必注明出处!!)

     

    展开全文
  • 读取文件通常是从第一行开始读取,直到最后一行结束。程序只需要最后一行的数据并且文件很大,如果从第一行读取直到最后一行结束来确定最后一行的内容,这样效率会很低。网上收集了一些直接读取最后一行数据的代码...
  • VB读写txt文档源代码

    2013-02-18 13:07:49
    vb操作txt文本数据代码,详细明了,只供学习交流,严禁进行商业用途!
  • vb读取文本文件某行的内容

    千次阅读 2019-11-09 14:12:18
    VB可以使用二进制方式打开文本文件,以Get 语句读到字节数组,再使用StrConv 函数将其转换为字符串,而后使用Split函数文本的字符串数组及总句数,使用InputBox 函数来输入需要读某行文本。 Get 语句 将一个已打开的...
  • ![]... 比如这个情况,我就需要选中第一行的时候,text1.text=1001 我已经编写的代码: Option Explicit Private Sub Command1_Click() ...Dim rs_findsp As New ADODB.Recordset ...
  • 操作一软件,所有信息都显示在文本框里的。我可以用VB获取该软件的文本框窗口句柄。 但我想把文本框里的数据取出来入打开的记事本。应该怎样做。用VB
  • vb6.0 读取access(mdb)数据库的代码,代码很简单,很适合学习vb6.0操作数据库的菜鸟学习
  • VB实际读写INI文件

    2021-01-31 22:45:00
    窗体上画两个按钮(Command1、Command2),一个输入框(Text1),代码如下: Option Explicit Private Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal ...
  • VS2010打开txt文件并显示到txt文本框中,然后将文本框内容保存至txt。
  • vb读取excel的数据并在窗体上显示

    万次阅读 2017-11-20 17:23:13
    "VB.TextBox" ,  "textbox"   &  CStr (i) &  CStr (j) &  CStr (No))   ReDim   TextBoxA(1  To   i, 1  To   j)  '重新定义动态数组!   Set   TextBoxA(i, j) = a   With...
  • 通过单击按钮,文本的信息将自动写入OLE的表格
  • vb 数据库操作实例,包括对数据库的链接,写入、读取、删除等操作,有具体实例代码。
  • 使用VB编程的时候需要OFFICE选中图片的时候能读取图片的名字。 其中PPT和WORD都能读取了,但是EXCEL里选中图片读不出任何东西。 如下图,不仅是图片,文本框也读不出名字。 大佬们有没有方法可以读图或者可以...
  • VB.net实现INI文件读写。程序还有自定义按钮、文本框控件,创建小键盘的写法,登录框与ACCESS数据库的写法,是不可多得示例源码
  • 在文本框中输入公式(如:sin(10),abs((123+456)/(123-456))),自动计算结果 实现简单,一看就懂
  • VB 获取Textbox文本框中的行数函数

    千次阅读 2013-01-31 17:16:14
    文本框中的行数函数 ※ VB 快速读取 TextBox 第 N 行的资料 ※ 限制文本框 (TextBox) 只能输入数字 (VB6 代码 ) ※ VB 提取 TextBox 文本框中指定一行字符串 ※ VB 小技巧自定义 TextBox 文本框...
  • MYSQL的一个demo,可以通过VB语言运行界面来获取数据库的表格和内容,并且可以修改数据库内容及上传。
  • No.7 读写txt文件​mp.weixin.qq.com许多程序需要读写数据,比如商品管理,图书管理,学生档案等,当需要查询的时候,就是读取数据,新增或者更改就需要写数据,VB来讲,小型的数据一般用Access数据库,大型的数据...
  • 这是使用EM_GETLINE message来做,比较奇特的是lParam是指向一个字串所在的位置...'以下Form需一个TextBox,设定MultiLine = True, 一个Command Button  Private Sub Command1_Click() Dim str5 As String ...

空空如也

空空如也

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

vb读取文件并显示在文本框中