如何去掉格式化字符

haitu

在CAD中普通的字符串（即没有任何格式信息的字符串）得到后的内容就是显示的内容，但是经过格式化的字符串中包括了很多格式化信息，如换行符，等等~~现在要做的就是提取里面的有用信息字符串，过滤掉格式化的字符，请问有没有比较好的方法可以做，还有，到底有多少种这样的格式字符~~

谢谢回帖~

tjdxtm

是MTEXT吗？试试这个

Public Function GetMTextUnformatString(ByVal str As String) As String
'程序功能:按给定的MText字符串返回可用的字符串
On Error Resume Next
    Dim pStrs As New Collection
    Dim pStack As Collection
    Dim n As Integer
    Dim pStr As String
    Dim pEnd As String
    str = "{" & str & "}"
    Do While Len(str) > 0
        n = IIf(Left(str, 1) = "\", 2, 1)
        pStr = Left(str, n)
        '分割MText字符串为控制字符或单个字符
        If pStr = "}" Then
        '遇"}"时出栈，直到"{"
            pEnd = pStrs(pStrs.Count)
            Set pStack = New Collection
            pStack.Add "*TlsCad*"
            Do While pEnd <> "{"
                pStack.Add pEnd, , 1
                pStrs.Remove pStrs.Count
                pEnd = pStrs(pStrs.Count)
            Loop
            pStrs.Remove pStrs.Count
            pStack.Remove pStack.Count
            For Each i In GetRtfString(pStack)
            '调用GetRtfString函数返回可用的字符集合
                pStrs.Add i
            Next i
        Else
        '当前字符入栈
            pStrs.Add Left(str, n)
        End If
        str = Right(str, Len(str) - n)
    Loop
    For Each i In pStrs
    '合并字符集合为字符串
        If Len(i) = 2 Then
        '处理\、{、}
            GetMTextUnformatString = GetMTextUnformatString & Right(i, 1)
        Else
            GetMTextUnformatString = GetMTextUnformatString & i
        End If
    Next i
End Function

雪山飞狐_lzh

既然引用的，最好给个说明！

看看这个贴

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20768

664571221

tjdxtm 发表于 2006-1-4 20:23
是MTEXT吗？试试这个
Public Function GetMTextUnformatString(ByVal str As String) As String'程序功能: ...

大神你这个是啥语言写的啊

bluelover

你在VB版块问还问别人用啥语言写的，哈哈哈哈哈