textreplace.cls

VB6.0编写的医院影像系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TextReplace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Text As String
Public SplitStart As String      '开始字符串
Public SplitEnd As String      '结束字符串

Public Function Replace(SearchText As String, ReplaceText As String, Optional WithSplitChar As Boolean = True) As Boolean
    
    Dim strSearch
    Dim i As Long
    
    '决定要查找的字符串
    If WithSplitChar Then
        strSearch = SplitStart & SearchText & SplitEnd
    Else
        strSearch = SearchText
    End If
    
    '以下改用VBA的Replace函数
    Text = VBA.Replace(Text, strSearch, ReplaceText)
    
'Repl:
'    i = 0
'    i = InStr(1, Text, strSearch)
'    '替换
'    If i = 0 Then
'        Replace = False
'        Exit Function
'    Else
'        'Mid(Text, i, Len(strSearch)) = ReplaceText
'        Text = Left(Text, i - 1) & ReplaceText & Mid(Text, i + Len(strSearch))
'        Replace = True
'    End If
'    GoTo Repl
    
End Function

Public Function FindTag(StartTag As String, EndTag As String) As String
    
    '----------------------
    '返回在StartTag和EndTag
    '之间的字符串
    '----------------------
    On Error GoTo ErrHandle
    
    Dim lStart As Long, lEnd As Long
    
    lStart = InStr(1, Text, StartTag)
    lEnd = InStr(1, Text, EndTag)
    
    FindTag = Mid(Text, lStart, lEnd - lStart + Len(EndTag))
    Exit Function

ErrHandle:
    FindTag = vbNullString
    
End Function


Private Sub Class_Initialize()
    '初始化
    SplitStart = "["
    SplitEnd = "]"
End Sub