精华内容
下载资源
问答
  • 打开rtf文件,查找和替换里面的文件(VB6.0源代码编写)
  • 打开rtf文件,查找和替换里面的文件(VB6.0源代码编写) 打开rtf文件,查找和替换里面的字符。
  • 打开rtf文件,查找和替换里面的字符。 QQ223857666勾月
  • VB根据网页源代码分析URL链接,本代码中包括一些对URL的处理模块,比如将网页地址中可能含有的“\“全部替换成成”/”,这样地址中的分割符合就一致,还有查找地址的绝对地址路径,将网页源码全部转换成大写等。...
  • VB增强查找插件 Ver 3.3

    2006-11-07 10:48:17
    一个可以在VB开发环境增强查找的插件工具,可以和VB的IDE环境融为一体,支持查找自动定位(即点击查找的内容,即自动跳转到代码的位置,类似VC的查找功能,经常使用VC的应该能感觉到这个好功能的方便性),当然,还...
  • 2.增强型的字符串的查找替换 3.从字符串数组中删除指定元素 4.字符串倒置 三.VB常用技巧 1.打开默认的浏览器 2.获取驱动器卷标 3.总在最前型窗口 4.目录浏览对话框 5.Shell的相关问题 6.使用回收站 7.启动...
  • 对PDF文档中的内容进行查找时,可针对文档全篇内容获取查找结果,也可在PDF指定页面中的特定范围内(矩形框区域)进行查找,对获取的查找结果可执行文本高亮或替换等操作,本文将对此作相关介绍(附VB.NET代码,有...

    对PDF文档中的内容进行查找时,可针对文档全篇内容获取查找结果,也可在PDF指定页面中的特定范围内(矩形框区域)进行查找,对获取的查找结果可执行文本高亮或替换等操作,本文将对此作相关介绍(附VB.NET代码,有需要可参考)。

    关于工具使用

    工具:需下载Spire.PDF for .NET Pack hotfix 6.12.20版本(注:hotfixt版本无需安装,若下载的是Pack版本则需要安装至本地路径,可在安装后,查看演示程序及API)。

    引用:下载并解压到本地路径,将Bin文件夹下的Spire.Pdf.dll文件添加引用至VS程序,具体引用方法可参考如下步骤:

    在VS程序中打开“解决方案资源管理器”-鼠标右键点击“引用”-“添加引用”-然后执行如下操作:

    添加引用结果如图:

    C# 代码

    using Spire.Pdf;
    using Spire.Pdf.General.Find;
    using Spire.Pdf.Graphics;
    using System.Drawing;
    
    namespace FindAndHighlightText2
    {
        class Program
        {
            static void Main(string[] args)
            {
                //加载PDF测试文档
                PdfDocument pdf = new PdfDocument();
                pdf.LoadFromFile("咖啡豆.pdf", FileFormat.PDF);
    
                //指定需要查找的页面区域范围
                RectangleF pagerec = new RectangleF(0, 0, 500, 700);
    
                //在第一页的指定区域查找指定文本
                PdfTextFindCollection findCollection1 = pdf.Pages[0].FindText(pagerec, "咖啡豆", TextFindParameter.WholeWord);
                PdfTextFindCollection findCollection2 = pdf.Pages[0].FindText(pagerec, "洪都拉斯", TextFindParameter.WholeWord);         
    
                //替换查找结果
                PdfBrush brush = new PdfSolidBrush(Color.Red);
                PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 12f, FontStyle.Regular));
    
                RectangleF textrec;
                foreach (PdfTextFind find1 in findCollection1.Finds)
                {
                    textrec = find1.Bounds;
                    pdf.Pages[0].Canvas.DrawRectangle(PdfBrushes.White, textrec);
                    pdf.Pages[0].Canvas.DrawString("NewText", font, brush, textrec);
    
                }
    
                //高亮查找结果
                foreach (PdfTextFind find2 in findCollection2.Finds)
                {
                    find2.ApplyHighLight(Color.Yellow);
                }
    
                //保存文档
                pdf.SaveToFile("result.pdf", FileFormat.PDF);
                System.Diagnostics.Process.Start("result.pdf");
            }
        }
    }
    

    查找替换及高亮结果如图效果:

     

    Vb.net代码

    Imports Spire.Pdf
    Imports Spire.Pdf.General.Find
    Imports Spire.Pdf.Graphics
    Imports System.Drawing
    
    Namespace FindAndHighlightText2
    	Class Program
    		Private Shared Sub Main(args As String())
    			'加载PDF测试文档
    			Dim pdf As New PdfDocument()
    			pdf.LoadFromFile("咖啡豆.pdf", FileFormat.PDF)
    
    			'指定需要查找的页面区域范围
    			Dim pagerec As New RectangleF(0, 0, 500, 700)
    
    			'在第一页的指定区域查找指定文本
    			Dim findCollection1 As PdfTextFindCollection = pdf.Pages(0).FindText(pagerec, "咖啡豆", TextFindParameter.WholeWord)
    			Dim findCollection2 As PdfTextFindCollection = pdf.Pages(0).FindText(pagerec, "洪都拉斯", TextFindParameter.WholeWord)
    
    			'替换查找结果
    			Dim brush As PdfBrush = New PdfSolidBrush(Color.Red)
    			Dim font As New PdfTrueTypeFont(New Font("Arial", 12F, FontStyle.Regular))
    
    			Dim textrec As RectangleF
    			For Each find1 As PdfTextFind In findCollection1.Finds
    				textrec = find1.Bounds
    				pdf.Pages(0).Canvas.DrawRectangle(PdfBrushes.White, textrec)
    
    				pdf.Pages(0).Canvas.DrawString("NewText", font, brush, textrec)
    			Next
    
    			'高亮查找结果
    			For Each find2 As PdfTextFind In findCollection2.Finds
    				find2.ApplyHighLight(Color.Yellow)
    			Next
    
    			'保存文档
    			pdf.SaveToFile("result.pdf", FileFormat.PDF)
    			System.Diagnostics.Process.Start("result.pdf")
    		End Sub
    	End Class
    End Namespace
    

     

    转载请注明出处!!

    展开全文
  • 经过长时间学习VB.NET正则表达式,于是大家分享一下,看完本文你肯定有不少收获,希望本文能教会你更多东西。在通常的程序设计中,对字符串的操作是不可缺少的部分。例如,我们经常需要从字符串中寻找特定的部分,...
    经过长时间学习VB.NET正则表达式,于是和大家分享一下,看完本文你肯定有不少收获,希望本文能教会你更多东西。在通常的程序设计中,对字符串的操作是不可缺少的部分。例如,我们经常需要从字符串中寻找特定的部分,或者对某一部分进行替换、删除等等。使用传统的静态字符串操作方法只能查找字符串中固定不变的部分,缺乏灵活性。而用正则表达式则可以规定待查找字符串的模式,查找同一类型的字符串,例如要在EMAIL格式的字符串(如lzcarl@126.com)中分解出用户名和服务器名,可以定义如下的正则表达式(?[^@]+)@(?.+),然后使用相应的解析器进行解析,得到两个分组user组和host组,user组里存储用户名lzcarl,host组里存放服务器名126.com,而用传统的方法是很难实现这种分解的。由此可见,作为一种字符串处理方式,正则表达式的灵活与强大确实是传统字符串处理方式无法相比的。

      1、VB.NET正则表达式处理类

      在VB.NET正则表达式必须先引入命名空间System.Text.RegularExpressions,该命名空间包含一下七个类:Regex、Match、MatchCollection、GroupCollection、CaptureCollection、Group、Capture。

      Regex类表示不可变(只读)正则表达式类,设置待匹配字符串的模式。Match 类表示正则表达式匹配操作的结果。MatchCollection 类表示成功的非重叠匹配的序列,即匹配后得到的字符串集合。在正则表达式中应用最多的就是这三个类。

      使用正则表达式类的通用方法是:

      首先生成一个Regex类的实例,并在传入参数中输入正则表达式的模式,然后使用Regex类的相应方法,如IsMatch(判断是否匹配)、Match(返回匹配得到的字符串)等等。

      当然也可以使用Regex类的共享方法而不实例化Regex类——IsMatch、Match等等(即上述方法的共享版本)获得所需要的结果。这种方法适于匹配模式不固定,匹配次数不多的情况。

      接下来给出一个VB.NET中正则表达式的应用。

      2、时间解析程序

      该程序读取用户输入的时间长度字符串(如XX小时XX分钟XX秒),把它解析,最后用秒表示该时间长度(XX秒)。程序界面如下:

      当用户在文本框中输入时间值后,点计算后就会在“结果”后面得到用秒表示的时间值。该程序首先从文本框中读入时间值,然后分别查找其中的小时、分钟、秒部分,在这里就使用了正则表达式对时间表达式进行解析。如小时数的正则表达式可表示为“[0-9]+小时”。“[0-9]”表示0到9间的任意数字都可以被匹配,“+”表示该字符可以出现一次或更多,因此“[0-9]+”即可以匹配任意长度整数(关于正则表达式的语法可以参见MSDN的相应部分),用这个字符串模式就可以查找出表达式中的小时部分。在分别匹配得到小时数、分钟数和秒数后计算得到总的秒数,并显示在“结果”后面。

      程序包括一个计算时间的正则表达式工具类TimeRegex,及Form1界面类。

      TimeRegex类代码如下:


    ImportsSystem.Text.RegularExpressions   
    PublicClassTimeRegex   
    PrivatehourAsInteger=0  
    PrivateminuteAsInteger=0  
    PrivatesecondAsInteger=0  
    PrivatetotalTimeAsInteger=0  
    PrivateexpAsString'时间表达式   
     
    SubNew()   
    EndSub   
     
    '根据时间文本解析出其中的数字部分   
    PrivateFunctiongetTime(ByValtimeKindAsString)AsString   
    DimtimeMatchAsMatch   
    DimtimeAsString   
    '先从中解析出包含数字和中文的部分   
    timeMatch=Regex.Match(exp,timeKind)   
    IftimeMatch.Success=TrueThen  
    time=timeMatch.Value   
    '然后从得到的文本中解析出数字   
    ReturnRegex.Match(time,"[0-9]+").Value   
    Else   
    Return"0"   
    EndIf   
    EndFunction   
     
    '根据传入的表达式计算总时间   
    PublicFunctiongetTotalTime(ByVal_expAsString)AsInteger   
    exp=_exp  
    '分别计算出小时,分钟,秒,然后得到总时间   
    hour=Integer.Parse(getTime("[0-9]+小时"))   
    minute=Integer.Parse(getTime("[0-9]+分钟"))   
    second=Integer.Parse(getTime("[0-9]+秒"))   
    totalTime=hour*3600+minute*60+second   
    ReturntotalTime   
    EndFunction   
    EndClass   
     
    Form1类代码如下:   
    PublicClassForm1   
    InheritsSystem.Windows.Forms.Form   
    PrivateregexAsNewTimeRegex   
     
    Windows窗体设计器生成代码省略   
     
    PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click   
    SecondTime.Text=regex.getTotalTime   
    (timeExp.Text).ToString&"秒"   
    EndSub   
    EndClass

      3、结论

      合理的使用VB.NET正则表达式对于简化程序代码、提高程序的复用性与健壮性有着很大的帮助。可以说正则表达式是程序员必须掌握的几种武器之一。而.NET中对正则表达式也有较好的支持,以后在处理字符串的时候,不妨使用一下正则表达式,一定可以起到事半功倍的效果。

    转载于:https://www.cnblogs.com/NetPig/archive/2011/07/26/2117309.html

    展开全文
  • 在任何控件中查找和替换文本的绝对简便方法!! 描述 在任何控件中查找和替换文本的绝对简便方法,即:标签,文本框,基本上是任何支持文本编辑的控件! 更多信息 只需使3个文本框和一个命令按钮,保留默认名称。 ...
  • 代码量的直观体现 ...open Solution 以后,我们运行查找和替换 --快捷键是 ctrl + shift + f 查找项 输入 ^b*[^:b#/]+.*$ 查找範圍是整個solution 然后选择正则表达式 具体如图所示 在find result 的窗...

    代码量的直观体现

    虽然代码行并不能说明工作量,但是,大致的评估还是有一定的作用的
    今天需要统计VB.net项目的代码的行数,顾专门做个记录~

    • open Solution 以后,我们运行查找和替换 --快捷键是 ctrl + shift + f
    • 查找项 输入
    ^b*[^:b#/]+.*$
    
    • 查找範圍是整個solution
    • 然后选择正则表达式 具体如图所示
      在这里插入图片描述

    在find result 的窗口 我们可以看到 在最后一行有了统计结果 :
    在这里插入图片描述

    哇 好多行代码啊~、

    ─=≡Σ(((つ•̀ω•́)つ

    展开全文
  • 增加搜索组合框和替换组合框的OLE Drag操作 激活窗口的时候将焦点指向Search组合框 替换图标,提高程序图标的清晰度 v1.5.0.58 SQL语句只选择最新的10条记录,加快了搜索速度. 解决了正则全部替换时提示错误无法...
  • 93.zip 演示快速排序算法(12KB) 19,62.zip 子分类技术的应用 (3KB) 20,45.zip 用VB写“多线程”程序(9KB) 21,190.zip 字符串查找和替换的实现例子(1KB) 22,191.zip 字符串处理的12...
  • 93.zip 演示快速排序算法(12KB)<END><br>19,62.zip 子分类技术的应用 (3KB)<END><br>20,45.zip 用VB写“多线程”程序(9KB)<END><br>21,190.zip 字符串查找和替换的实现例子(1KB)<END><br>22,...
  • vb.net实现写字板程序报告(三)

    千次阅读 2003-10-27 02:06:00
    所有源代码均在这里下载:http://www.up2e.com/resource.php用vb.net实现写字板程序报告(三)---by zigz(LuHai)luluhai@eastday.com3) 关于查找替换功能这里我用了一个Panel面板控件来放查找查找下一个,替换...

    所有源代码均在这里下载:

    http://www.up2e.com/resource.php

    用vb.net实现写字板程序报告(三)---by zigz(LuHai)
    luluhai@eastday.com

    3)            关于查找替换功能
    这里我用了一个Panel面板控件来放查找,查找下一个,替换按钮和文本框。

    4 查找替换

    我为什么不用一个窗体呢?因为我正好想练练拖动控件的代码,可以实现让这个面板在主窗体范围内拖动,由于看到了一个老外的教程,就顺便翻译了来练习练习。首先说说这个简单的查找替换功能,就是用户在第一个文本框中输入希望查找的字,然后点击查找按钮,程序就会在RichTextBox中查找相匹配的字,找到之后,将其高亮显示,点击下一个按钮,就会找到下一个匹配的字。。如此反复,直到结束,而替换就是把所有在RichTextBox中第一个文本框中的内容用第二个文本框的内容替换。是不是有些绕口令?还是亲自尝试一下就知道了。下面是查找替换相关代码(主要是创建一个FindText函数):

    '下面是关于实现查找功能<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

        Dim MyPos As Integer '先声明一个全局变量

        Private Sub FindText(ByVal start As Integer) '创建findtext函数

            Dim pos As Integer

            Dim target As String

            '获取用户输入的要查找的字符串

            target = txtbox.Text

            pos = InStr(start, rtbox.Text, target)

            If pos > 0 Then  '找到了匹配字符串

                MyPos = pos

                rtbox.SelectionStart = MyPos - 1 '高亮显示

                rtbox.SelectionLength = Len(txtbox.Text)

                rtbox.Focus()

            Else

                MsgBox("没找到!")

            End If

        End Sub

    find按钮,findNext按钮

    Private Sub find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles find.Click

            FindText(1)

    End Sub

    Private Sub findnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findnext.Click

            FindText(MyPos + 1)

        End Sub

    拖动控件的代码:

    '下面这段程序,用作拖拽“查找面板”使用

        Dim dragging As Boolean

        Dim mousex As Integer

        Dim mousey As Integer

        Private Sub panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown

            If e.Button = MouseButtons.Left Then

                dragging = True

                mousex = -e.X

                mousey = -e.Y

                Dim clipleft As Integer = Me.PointToClient(MousePosition).X - Panel1.Location.X

                Dim cliptop As Integer = Me.PointToClient(MousePosition).Y - Panel1.Location.Y

                Dim clipwidth As Integer = Me.ClientSize.Width - (Panel1.Width - clipleft)

                Dim clipheight As Integer = Me.ClientSize.Height - (Panel1.Height - cliptop)

                Cursor.Clip = Me.RectangleToScreen(New Rectangle(clipleft, cliptop, clipwidth, clipheight))

                Panel1.Invalidate()

            End If

        End Sub

     

        Private Sub panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove

            If dragging Then

                '移动控件到新的位置

                Dim MPosition As New Point()

                MPosition = Me.PointToClient(MousePosition)

                MPosition.Offset(mousex, mousey)

                '确实控件不能离开主窗口

                Panel1.Location = MPosition

            End If

        End Sub

     

        Private Sub panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp

            If dragging Then

                '结束拖拽

                dragging = False

                Cursor.Clip = Nothing

                Panel1.Invalidate()

            End If

        End Sub

     

    未完待续......



     

     

    展开全文
  • vb Script参考文档

    2009-07-28 22:13:02
    PropertyGet 语句 声明在窗体属性过程中获取(返回)属性值的名称,参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称,参数和代码。 PropertySet 语句 声明在窗体属性过程中设置引用到对象的...
  • 7.提供Unicode、语法高亮、查找替换等功能的强大文本编辑器。 8.支持插件(Intrinsic Objects)扩展模板的功能。 9.支持MyMeta meta-data providers插件 10.Dockable windows.(不懂) 11.提供动态的可重写的数据...
  • clpdcopy.ZIP 一个可以从剪贴版粘贴文件的程序(象Explore中的“复制”“粘贴”一样)(4KB) 10,findfile.ZIP 利用递归方式实现对文件的查找操作(3KB) 11,vb52unix.ZIP 将VB格式文件转换为Unix...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • Java开发技术大全(500个源代码).

    热门讨论 2012-12-02 19:55:48
    代码范例列表 第1章 示例描述:本章演示如何开始使用JDK进行程序的开发。 HelloWorldApp.java 第一个用Java开发的应用程序。 firstApplet.java 第一个用Java开发的Applet小程序。 firstApplet.htm 用来装载...
  • ultraedit64Wei.rar

    2019-06-25 08:53:51
     3、在所有搜索操作(查找、替换、在文件中查找、在文件中替换)中,支持多行查找和替换对话框;  4、带有100,000个单词的拼写检查器,对 C/C++、VB、HTML、Java和Perl进行了预配置;  5、UltraEdit文本编辑器...
  • UltraEdit.rar

    2019-05-22 17:03:41
     3、在所有搜索操作(查找、替换、在文件中查找、在文件中替换)中,支持多行查找和替换对话框;  4、带有100,000个单词的拼写检查器,对 C/C++、VB、HTML、Java和Perl进行了预配置;  5、UltraEdit文本编辑器...
  • UE中文版编辑器

    2013-12-17 17:11:46
    查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...
  • UltraEdit修改器

    2013-10-28 21:24:03
    查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 ...
  • UltraEdit-32绿色免安装

    2014-07-08 21:26:44
    查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...
  • 查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...
  • UE编辑器中文版

    2013-03-21 09:46:21
    查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...
  • 查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...
  • 通过软件的修补、替换完成系统的升级更新换代。 3、 系统的易用性易维护性:要实现这一点,就要求系统应该尽量使用用户熟悉的术语中文信息的界面;针对用户可能出现的使用问题,要提供足够的在线帮助,缩短...
  • ue 14 及注册码

    2014-08-13 14:10:04
    查找和替换——按下 shift 键后,允许选择插入符和查找目标之间的文本,可替换选定区域内的所有内容 -文件内查找,文件内替换 -转到行号/分页符 -显示器和打印机字体选择。(支持所有安装的字体,包括 TRUE-...

空空如也

空空如也

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

vb查找和替换代码