modtags.bas

来自「这是一个完美版本的的超强文件编辑器,支持各种程序的语法高亮,支持插件和宏录制,支」· BAS 代码 · 共 27 行

Attribute VB_Name = "modTags"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/19
'描  述：完整版本的超强文件编辑器
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
Option Explicit
Public Sub addTags()
  Dim fFile As Integer, tmpStr As String, tmpKey As String
  fFile = FreeFile
  Open App.path & "\temp\tags.dat" For Input As #fFile
    Do Until EOF(fFile)
      Input #fFile, tmpStr
      If Left(tmpStr, 1) <> "+" Then
        frmNav.TagsD.Nodes.Add , , tmpStr, tmpStr, 1
        tmpKey = tmpStr
      Else
        frmNav.TagsD.Nodes.Add tmpKey, tvwChild, Mid(tmpStr, 2, Len(tmpStr) - 1) & frmNav.TagsD.Nodes.Count, Mid(tmpStr, 2, Len(tmpStr) - 1), 2
      End If
    Loop
  Close #fFile
End Sub