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

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

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

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

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

嗯 - 不确定，但听起来你想要这样的东西？
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

示例用法：
FndText "\pi-0.875,l0.875;1.HALLO TEST"

返回：
1.HALLO TEST

joseguia 发表于 2006-4-18 09:15:22

直觉告诉我你需要的不仅仅是这些..正确

Humbertogo 发表于 2006-4-18 09:40:41

谢谢
，我会做更多的调查

Bryco 发表于 2006-4-18 10:59:18

我们使用Autocad Mechanical 2006

查看完整版本: 从多行文字中删除缩进抽头停止位置