如何删除字符串间字符

Question

本帖最后由 day2008 于 2009-08-12 10:33:02 编辑

Answer 1

Private Sub Form_Initialize()
    S = "456454|asdasdas." & _
"asd12321312" & _
vbCrLf & _
"asdasd123"
l = InStr(S, "|")
l1 = InStr(S, vbCrLf)
S1 = Mid(S, l, l1 - l)
S = Replace(S, S1, vbCrLf & vbCrLf)
Debug.Print S
End Sub

Answer 2

封装一段比较通用的函数，然后就可以清理任意两个字符串间的字符了
Option ExplicitPrivate Sub Command1_Click()
    Dim strTest As String
    Dim strFind As String
    strTest = "456454|asdasdas." & vbCrLf & "asd12321312 " & vbCrLf & vbCrLf & "asdasd123 "
    
    Debug.Print strTest
    
    strFind = FindStringBetween(strTest, "|", vbCrLf)
    
    strTest = Replace(strTest, strFind, "")
    Debug.Print strTest
End Sub
'查找两个指定字符串间的字符串
Private Function FindStringBetween(strInput As String, strStart As String, strEnd As String, Optional lngStartPoint As Long = 1)
    Dim strTmp As String
    Dim pt1 As Long
    Dim pt2 As Long
    
    pt1 = InStr(lngStartPoint, strInput, strStart)
    If pt1 < 1 Then Exit Function
    pt2 = InStr(pt1, strInput, strEnd)
    If pt2 < 1 Then Exit Function
    
    FindStringBetween = Mid(strInput, pt1, pt2 - pt1)
End Function

Answer 3

Public Function String_Cutting(Byval yourString As String) As String
    Dim tmp() As String    tmp = Split(yourString, "|")
    String_Cutting = tmp(0)
End Function