从多行文字中删除缩进抽头停止位置

Humbertogo · 发表于 2006-4-18 07:30:38

有没有办法从多文本中删除缩进水龙头停止位置，缩进位置并不总是相同的。
以 vba
为例：
\pi-0.875，l0.875;1.HALLO TEST
需要删除 \pi-0.875，l0.875; 从 Mtext 中，缩进位置并不总是相同的。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

joseguia · 发表于 2006-4-18 09:14:21

嗯 - 不确定，但听起来你想要这样的东西？

copy

Function FndText(strString As String)
  On Error GoTo Err_Control
  Dim Lng As Integer
  ' Searches string for ";" and returns everything to the Right
  ' If no ";" found returns original string
  
  Lng = InStr(strString, ";")
    If Lng > 0 Then
      
      FndText = Right(strString, (Len(strString) - Lng))
    Else
      FndText = strString
    End If
Exit_Here:
  Exit Function
Err_Control:
  Select Case Err.number
  'Add your Case selections here
    Case Else
    MsgBox Err.Description
    Err.Clear
    Resume Exit_Here
  End Select
End Function