[原创]获取MText中的可用字符

无痕 · 发表于 2004-6-27 16:45:00

本帖最后由作者于 2004-6-27 17:11:17 编辑

好帖子阿！

能不能再举出一个例子，将可能的格式特征字符都包括进去？最好再传一个dwg文件。

mccad · 发表于 2004-6-27 18:24:00

本帖最后由作者于 2004-6-27 19:19:41 编辑

这些就是大部分格式符，另外还有的内容就是缩进格式和制表符格式：
以下函数已经改进支持缩进和制表符格式，还做了改进，不必做控件引用。

Public Function GetMTextUnformatString(MTextString As String) As String
Dim s As String
Dim RE As Object
Set RE = ThisDrawing.Application.GetInterfaceObject("Vbscript.RegExp")
RE.IgnoreCase = False
RE.Global = True
s = MTextString
'替换\\字符
RE.Pattern = "\\\"
s = RE.Replace(s, Chr(1))
'替换\{字符
RE.Pattern = "\\{"
s = RE.Replace(s, Chr(2))
'替换\}字符
RE.Pattern = "\\}"
s = RE.Replace(s, Chr(3))
'删除段落缩进格式
RE.Pattern = "\\pi(.[^;]*);"
s = RE.Replace(s, "")
'删除制表符格式
RE.Pattern = "\\pt(.[^;]*);"
s = RE.Replace(s, "")
'删除堆迭格式
RE.Pattern = "\\S(.[^;]*)(\^|#|\\)(.[^;]*);"
s = RE.Replace(s, "$1$3")
'删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
RE.Pattern = "(

洋葱老爹 · 发表于 2004-6-28 12:11:00

看看我的代码怎么样。。。 Public Function 提取多行文字(文字串 As String)
Dim 多行文字1 As String
Dim 多行文字 As String
Dim 多行文字2 As String
Dim 数据(0 To 1)

Dim i As Integer

i = 0: 数据(0) = "": 多行文字1 = 文字串
处理:
Do Until Len(多行文字1) = 0
多行文字 = Left(多行文字1, 1)
If 多行文字 = "\" Then
多行文字2 = Mid(多行文字1, 2, 1)
Select Case 多行文字2
Case "\"
数据(0) = 数据(0) + "\"
Case "{"
数据(0) = 数据(0) + "{"
Case "}"
数据(0) = 数据(0) + "}"
Case "~" '插入不间断空格
数据(0) = 数据(0) + " "
Case "P" '结束段落
数据(0) = 数据(0) + vbCr
End Select
多行文字1 = Mid(多行文字1, 3): GoTo 处理
End If
If 多行文字 = "{" Then
数据(1) = Mid(多行文字1, 3, InStr(多行文字1, ";") - 3)
多行文字1 = Mid(多行文字1, InStr(多行文字1, ";") + 1): GoTo 处理
End If
If 多行文字 = "}" Then 多行文字1 = Mid(多行文字1, 2): GoTo 处理
数据(0) = 数据(0) + 多行文字: 多行文字1 = Mid(多行文字1, 2)
Loop
提取多行文字 = 数据
End Function

evaporated · 发表于 2006-2-7 17:24:00

mccad老大的函数不行啊。

无论是否引用控件，都没有对字符串做任何处理。

但是也没有报错

小弟用的是autocad2004,win2000 sp4

兰州人 · 发表于 2007-12-5 15:29:00

好好研究一下。

雪山飞狐_lzh · 发表于 2009-4-19 17:56:00

本帖最后由作者于 2009-4-19 20:23:27 编辑

不需替换\\\\用正则的方法

public static string GetMTextContents(string str)
{
string[] strs = str.Split(
new string[] { "\\\" },
StringSplitOptions.None);
for (int i = 0;i<strs.Length;i++)
{
strs[i] = Regex.Replace(
strs[i],
@"(?<!\\)[{}]|\\[OLP\~]|\\[CFHTQWA][^;]*;",
"",
RegexOptions.IgnoreCase);
strs[i] = Regex.Replace(
strs[i],
@"\\S(.*?)[/#\^](.*?)[;$]",
"($1/$2)",
RegexOptions.IgnoreCase);
strs[i] = Regex.Replace(
strs[i],
@"\\([{}])",
"$1");
}
str = string.Join("\", strs);
return str;
}

复制代码

5061220 · 发表于 2009-8-22 21:09:00

chubiao1126 · 发表于 2011-10-20 22:47:17

{\fArial|b0|i0|c0|p32;A012-C035SI1202A\fSimSun|b0|i0|c134|p2; 下线银浆 }Ver.{\fSimSun|b0|i0|c134|p2;2} {\fSimSun|b0|i0|c134|p2;目数}:400 {\fSimSun|b0|i0|c134|p2;解析度：}25{\fSimSun|b0|i0|c134|p2;0}00{\fSimSun|b0|i0|c134|p2;-25400}  {\fSimSun|b0|i0|c134|p2;膜厚：
  1
10}-1{\fSimSun|b0|i0|c134|p2;2}u  \P{\fSimSun|b0|i0|c134|p2;角度：}22.5{\fSimSun|b0|i0|c134|p2;度张力：}22~26N {\fSimSun|b0|i0|c134|p2;日期：}2011-{\fSimSun|b0|i0|c134|p2;09}-{\fSimSun|b0|i0|c134|p2;19}

chubiao1126 · 发表于 2011-10-20 22:48:29

请问上面的 mtext 中的 |b0|i0|c134|p2 是什么意思？

czb203 · 发表于 2011-11-19 14:08:33

测试一下，真的还不错啊谢谢啊

账号		自动登录	找回密码
密码			注册

[原创]获取MText中的可用字符

本帖子中包含更多资源