函数控件,里面都是关于文件和字符串的操作控件

  1.此函数控件在vb6,windowsme调试通过

  2.vb运行后，要使用但未添加此函数控件，请先添加：工具箱——部件——浏览——选择abouttextandfile.ocx

  3.调用方式,控件名加函数名(如下例):
                     
    控件名.Seektxt ........               '不需要返回值,隐式调用(不要括号)
    call 控件名.Seektxt(........)         '不需要返回值，显式调用
    变量名=控件名.Seektxt(........)   '获取返回值。
        
  4.此函数控件的初始控件名为Function1
    
  5.xcdzip35.ocx为压缩函数必用控件，请不要删除，您也可以自己单独调用，试一下。     
         
函数一：
      Seektxt(boxtype, Findtxt As String, Optional Word As Boolean, _
              Optional Macase As Boolean, Optional Fangxiang As Long, _
              Optional Refind As Boolean, Optional Tihua As Long, _
              Optional Changetxt As String) As Long
  
  使用此函数，可以令您在文本框中轻轻松松向上，向下，全部方向，从文未或文首根据各种
  匹配条件进行查找和再查找，当然，也可以在各个方向，根据不同的匹配条件进行单个替换
  和再替换，或在整个文本框，或在选定的文本中进行全部替换，而无需您再编写太多的代码。
  
  此函数若用于textbox控件，请将 HideSelection 属性设为false,找到的字符才能高亮显示
  
  

  部分       说明 

  boxtype    必要参数，被搜索的textbox或richtextbox控件的名称。

  findtxt    必要参数，接受搜索的字符串表达式。 

  word       可选参数，是否要求全字匹配，是为true,否为false,缺省为false 

  macase     可选参数, 是否要求区分大小写，是为true,否为false,缺省为false

  fangxiang  可选参数, 指定查找的方向，缺省为3,全部方向（具体的可取值看下面说明）

  refind     可选参数，是否要重新从文本框的第一个字符或最后一个字符找起，是为true,否为false，缺省为false
             设置此参数为true的前提是fangxiang的取值必须为4或者5,否则函数将自动屏蔽此参数（既当此参数的值为缺省值false)
  
  tihua      可选参数，替换，取值0（也是缺省值)为不进行替换，1为单独替换，2为在选择文本中进行替换，3为整个文本框进行替换

  changetxt  可选参数, 替换字符串表达式.缺省或者为空字符串,则是将找到的字符删除.



  fangxiang参数的设置值

  值       描述

  1        从当前光标位置向上搜索

  2        从当前光标位置向下搜索

  3        从当前光标开始,进行全部方向的搜索

  4        从文本框的第一个字符开始,向下搜索

  5        从文本框的最后一个字符开始,向上搜索


 
  函数返回值:
  
  值      描述
  
  0       表示在指定的方向和条件下,已搜索或替换完毕    
  
  -1      文本框为空不进行查找

  -2      第二个参数为空,没有给予要查找的字符串

  -3      查找方向或替换方式的取值超出许可范围

  -4      替换方式取值2，但文本框没有选择文本

  -5      第一个参数非Textbox或Rrichtextbox文本框


示例程序：  

一个richtextbox控件
一个combobox控件，设计时按顺序添加“单独替换”，“选定文本替换”，“全部替换”三项
两个checkbox控件，分别显示为“区分大小写”，“全字匹配”
五个optionbutton控件数组，分别显示为“向上查找“，“向下查找”，“全部方向”，“文未找起”，“文首找起”（“全部方向”在设计时设为选定状态）
两个commandbutton控件 分别为“查找”，“替换”
两个文本框，一个为查找内容输入，一个为替换内容，与两个命令按钮相对应



'通用部分的声明：
Dim fanxia As Integer        '标记用户选择的查找方向
Dim txtchang As Boolean      '标记查找内容或替换内容发生改变


Private Sub Form_Load()
    Combo1 = Combo1.List(0)  '初始显示替换方式为单独替换
    fanxia = 3               '方向初始为3(全部方向)
End Sub

Private Sub Command1_Click() 'richtextbox控件的查找
    Call Function1.Seektxt(Text3, Text1, -Check1.Value, -Check2.Value, fanxia, txtchang)
    txtchang = False         '查找之后应将txtchang还为false,否则会每一次都从文未或文首查起,而不会查找下一条
End Sub

Private Sub Command2_Click() 'richtextbox控件的替换
    Call Function1.Seektxt(RichTextBox1, Text1, -Check1.Value, -Check2.Value, fanxia, txtchang, Combo1.ListIndex + 1, Text2)
    txtchang = False
End Sub

Private Sub Text1_Change()
    txtchang = True          '标记查找或替换内容发生改变,作用:当用户的查找或替换内容发生改变且选择的查找方向为文首或
End Sub                      '文未找起,则可用此值作为refind参数的值,重新从头或从最后找起,当然,您也可以不设置此值
                             '提示：seektxt函数的refind参数若传递为true ,则fangxiang参数的值必须是4或者5，否则函数将自动屏蔽
Private Sub Text2_Change()   'refind参数（既当此参数为缺省值false)
    txtchang = True
End Sub
  
Private Sub Option1_Click(Index As Integer)
    fanxia = Index           '记下用户选择的查找方向
End Sub

 

                             函数返回0,表示在指定的方向和条件下,已搜索或替换完毕.此示例程序没有接受函数的返回值
                             您也可以用例如A=Function1.seektxt(........)的方式来接受返回值.
                             请注意，如果是Textbox控件，其Hideselection属性必须设为false


函数二：
      OnlyOpenFolder(frm, ByVal Title As String) As String  
      此函数能打开只能选择文件夹的对话框。frm为窗体名称，title为提示信息。
      如：call onlyopenfolder(form1,"请选择目录:")   

函数三：
      Getlincount(txtBoxName) As Long   
      获取文本框总行数,boxname为文本框的名称,如果文本框为空则返回0
      如:i=getlincount(text1)

函数四:
      GetLine(BoxName, Whichline As Long) As String  
      获取指定行的内容,boxname为为文本框的名称，whichline为指定的行数，如果没有这一行，则返回"-1"

函数四:
      Getlength(BoxName, Whichline As Long) As Long   
      获取指定行长度,参数与上同，没有这一行，则返回-1

函数五：
      GetCaretPos(BoxName, LineNo As Long, ColNo As Long)   
      获取光标在文本框的位置，boxname为为文本框的名称,lineno和colno返回光标的行和列
      如：dim i as long
          dim k as long
          call function1.getcaretpos(text1,i,k)
          msgbox “行为" & str(i) + vbcrlf + "列为" & str(k)

函数六：
      Undo(BoxName) 
      调用此参数可在文本框中进行撤消操作,boxname为文本框名称

函数七：
      EditLine(BoxName, ByVal Whichline As Long, ByVal ChangeTxt As String) As Boolean  
      修改某一行,若changetxt为空串，则是将找到的内容删除,修改成功返回true,否则返回false

函数九：
      GetStrInLine(BoxName, ByVal Findstr As String, Optional ByVal mcase As Boolean,_
                   Optional GetlineItem As Boolean) As String  

      获取文本框中包含指定字符串的所有行的内容或者所有行号
      boxname为为文本框的名称,Findstr为要查找的字符串表达式
      mcase指定是否要区分大小写，默认是不区分大小写，若mcase为true则区分大小写
      若getlineitem为true，则是返回所有以"\"隔开的行号，缺省是返回内容

函数十：
       DelSpace(ByVal Txt As String) As String 
       删除字符串中所有空格

函数十一：
       lUcase(ByVal Txt As String, ByVal ChangeTxt As String, Optional ByVal Typelei As Boolean) As String
       在字符串中将指定字符转为大\小写，Typelei缺省是转为小写，传递为true则转为大写
       txt为被查找的字符串，changetxt为要转换的字符      

函数十二：
        CountStr(ByVal Txt As String, Optional ByVal FindTxt As String) As Long 
        在字符串统计某一字符串总数，txt为被查找的字符串，findtxt为要查找的字符串

函数十三：
         Delchange(ByVal Txt As String, ByVal FindTxt As String, Optional SpaceTxt As String) As String
                     
         删除或替换字符串中指定的字符,若spacetxt传递为空串则是删除
         txt为被查找的字符串，findtxt为要修改的字符串

函数十四：
         IsAllStr(ByVal Txt As String) As Boolean 
         判断字符串中是否包含数字,有则返回true,否则返回false

函数十五：
        SaveTree(Treename, ByVal Path As String) As Long 
        将treeview的内容保存到文件中,treename为treeview控件的名称，path为保存路径名称
        如果目录表为空则跳出不保存savetree返回0
        保存成功返回1，否则返回-2
        如果传递的第一个参数非treeivew控件返回-1
        保存treeview的目录结构,有一个非常重要的前提就是,
        节点名称中(node的text属性)不能带有"*"号,才能正确保存和读取
        

函数十五：
          ReadTreeFile(Treename, ByVal Path As String) As Long 
          读取目录文件到treeview中，是上面的逆函数
           
          函数返回值      说明

              1          读取成功
 
              0          文件没找到
           
             -1          路径没找到
           
             -2          目录文件为空
           
             -3          目录文件有空行或内容受损
          
             -4          未启动图像控件,或此控件的图片数量不足
          
             -5          第一个参数非treeview控件             
             
             -6          未知错误

函数十六：
        IsDat(ByVal Txt As String) As Boolean 
        判断一个字符串是否纯为数字，不包含任何其他的可视字符,是返回true,否则返回false

函数十七：
        FileIsHave(ByVal FilePath As String) As Boolean 
        判断文件是否存在

函数十八：
        FolderIsHave(ByVal FolderPath As String) As Boolean 
        判断文件夹是否存在

函数十九：
        GetFileAttrib(ByVal filename As String) As String 
        返回文件属性

        返回值      说明
          r         只读
          h         隐藏
          s         系统
          a         存档
          或者返回三者的各种组合
          0         无设置属性 

函数二十：
        setFileAttrib(ByVal filename As String,Attr As String) As Boolean
        设置文件属性, attr为要设置的属性值，参考上面的属性值。         
        如：call function1.setfileattrib("c:\1.txt","rh")  设置为只读和隐藏属性

函数二十一：
          GetFolderAttrib(ByVal Foldername As String) As String 
          返回文件夹属性，与函数十九一样.

函数二十二：
          SetFolderAttrib(ByVal Foldername As String, Attr As String) As Boolean 
          设置文件夹属性。

函数二十二：
          AddFile(Boxtype, ByVal Path As String, Optional ByVal Clean As Boolean) As Boolean

          此函数能使文本框（textbox)保存、装载文件变得更简单易行，因为它能使textbox文
          本框象richtextbox文本框拥有loadfile方法一样，一句代码即可装入文件。

          其次，不仅仅是保存和装入简单，此函数还可以使文本框能追加一个或多个文件，或同时调
          入两个以上文件（包括textbox和richtextbox文本框），特别是richtextbox文本框，即可以
          追加txt格式的文件，也可以追加rtf格式的文件，甚至是两种文件同时追加。
          
          Boxtype为richtextbox或textbox的名称
          Clean为true,则是将调入的文件内容覆盖文本框的内容,否则,将调入的文件内容追加到文本框中,缺省为false(追加)
          
          如：call function1.addfile(richtextbox1,"c:\1.txt" & "*" & "c:\1.rtf")  '用"*"隔开要打开的各个文件,如果是一个则不必

函数二十三： 
          SaveFile(BoxName, ByVal Path As String) As Boolean
          保存textbox控件的文本内容到文件。boxname为文本框名称，path为保存的路径和文件名
          如果path指向的文件已存在,则会进行覆盖
          保存成功返回true,否则返回false(如文件已存在并具有只读属性无法写入)
          如：call funcion1.savefile(text1,"c:\1.txt")     
     
函数二十四:
          GetFolderCount(ByVal Foldername As String) As Long
          获取某个文件夹中的文件夹总数,包括受保护的操作系统文件夹和隐藏文件夹，但不包括其下级文件夹

函数二十五:
          GetFileCount(ByVal Foldername As String) As Long
          获取某个文件夹中的文件总数，包括受保护的操作系统文件和隐藏文件，但不包括下级文件夹的文件

函数二十六:
          GetAllFileName(ByVal Foldername As String) As String
          获取某个文件夹中的所有文件的名称，包括受保护的操作系统文件和隐藏文件，但不包括下级文件夹的文件，各个文件名用“\"号隔开

函数二十七:
          GetSysFolder(ByVal TypeFolder As Long) As String 
          获取系统文件夹
          
          参数        返回值

           0        windows的安装路径

           1        system系统文件夹

           2        temp临时文件夹
        
           3        desktop桌面文件夹

           4        MyDocuments我的文档文件夹

           5        Fonts字体文件夹

           6        StartMenu开始菜单文件夹