knrt.net
当前位置:首页 >> VB里记事本的查找功能查找下一个,与替换功能! >>

VB里记事本的查找功能查找下一个,与替换功能!

假定所有控件都在一个窗体里,如果有其他问题LZ自己调下~ Dim last As Single Private Sub Command1_Click() ‘查找 For i = last To Len(Text1.Text) If Mid(Text1.Text, i, Len(Text2.Text)) = Text2.Text Then Text1.SetFocus Text1.SelStart ...

Dim n As Long, chazhao As String Private Sub Command1_Click()'这段代码为查找 Dim s As String s = Text1.Text chazhao = InputBox("") If chazhao = "" Then MsgBox "空字符串不能查找" Exit Sub End If n = InStr(s, chazhao) If n > 0 Th...

使用 Replace() 函数。

在FORM1中,加入1个按钮,和1个文本框, 在FORM2中,加入两个按钮,和两个文本框, Command1=查找下一个替换 Command2=全部替换 Form1.Text1.Text=需要替换的文本 Form1.Text1.Text=被替换字串 Form1.Text1.Text=替换字串 FORM2中的代码: Private Sub ...

新建一个模块,来定义查找的函数,里面代码如下:Option Explicit Public Function IsDelim(Char As String) As Boolean Select Case Asc(Char) Case 65 To 90, 95, 97 To 122 IsDelim = False Case Else: IsDelim = True End Select End Functi...

Form1的代码: Option Explicit Private Sub Command1_Click() Form2.Show vbModal End Sub Form2的代码: Option Explicit Private n As Long '记忆开始位置 Private Sub Command1_Click() Dim nStar As Long Dim nEnd As Long Dim SLen As Inte...

open "d:\1.txt" for input as #1 do until eof(1) line input #1,a b=b & a & vbcrlf loop close #1 if instr(b,text1.text) 0 then msgbox "已存在" end if

这是我写的代码,相信对你有用 Dim sFind As String '声明文件类型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load() '设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub '设置编辑框的位置和大小 Private Su...

因为楼上的把文件作为随机存取文件打开,然后用写入顺序存取文件的语句写入,所以出错了。 Private Sub Command1_Click() Open "c:\1.txt" For Output As #1 Print #1, Text1.Text; Close #1 End Sub 改成这样就可以了。

可以用line input。 假设你要读取的行数为i,文本地址为texturl Private Sub Command1_Click() Open texturl For Input As #1 Dim txt As String Dim n As Integer n = 1 Do While n

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com