VFP rtf源码 转汉字 怎么转呀?

無法替代 2018-09-11 11:50:24
转的时候不用在前台界面显示 只要把转好的内容存起来就行

源码如下

{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}} \viewkind4\uc1\pard\lang2052\f0\fs28\'ca\'b3\'b9\'dc:\'cf\'c2\'b6\'cb\'f0\'a4\'c4\'a4\'be\'d6\'b2\'bf\'b3\'e4\'d1\'aa\'a3\'ac\'b3\'ca\ldblquote\'d5\'a4\'c0\'b8\rdblquote\'d1\'f9\'b8\'c4\'b1\'e4\'a3\'ac\'c0\'a9\'d5\'c5\'b6\'c8\'ba\'c3\'a3\'ac\'b3\'dd\'d7\'b4\'cf\'df\'c7\'e5\'ce\'fa\'a1\'a3\par \'ea\'da\'c3\'c5:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'ce\'b4\'bc\'fb\'d2\'ec\'b3\'a3.\par \'ce\'b8\'b5\'d7:\'d2\'f2\'bb\'bc\'d5\'df\'b2\'bb\'c4\'dc\'c4\'cd\'ca\'dc\'ce\'b4\'bc\'ec\'b2\'e9\'a1\'a3\par \'ce\'b8\'cc\'e5:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'c9\'ab\'d4\'f3\'b3\'b1\'ba\'ec\'a3\'ac\'ce\'b4\'bc\'fb\'c0\'a3\'d1\'f1\'bc\'b0\'b3\'f6\'d1\'aa\'a1\'a3\par \'ce\'b8\'bd\'c7:\'d5\'b3\'c4\'a4\'ba\'ec\'b0\'d7\'cf\'e0\'bc\'e4\'a3\'ac\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'c8\'e1\'c8\'ed\'a3\'ac\'c8\'e4\'b6\'af\'bf\'c9\'a1\'a3\par \'ce\'b8\'f1\'bc:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'ba\'ec\'b0\'d7\'cf\'e0\'bc\'e4\'a3\'ac\'d2\'d4\'ba\'ec\'ce\'aa\'d6\'f7\'a3\'ac\'ce\'b4\'bc\'fb\'b3\'f6\'d1\'aa\'bc\'b0\'c0\'a3\'d1\'f1\'a3\'ac\'c8\'e4\'b6\'af\'c9\'d0\'bf\'c9\'a1\'a3\par \'d3\'c4\'c3\'c5:\'b3\'ca\'d4\'b2\'d0\'ce\'a3\'ac\'bf\'aa\'b1\'d5\'c9\'d0\'bf\'c9\'a3\'ac\'d5\'b3\'c4\'a4\'d6\'e5\'f4\'c5\'b9\'e2\'bb\'ac\'a3\'ac\'c9\'ab\'d4\'f3\'b5\'ad\'ba\'ec\'a3\'ac\'ce\'b4\'bc\'fb\'b3\'f6\'d1\'aa\'bc\'b0\'c0\'a3\par \'d1\'f1\'a1\'a3\par \'ca\'ae\'b6\'fe\'d6\'b8\'b3\'a6:\'c7\'f2\'b2\'bf\'bc\'b0\'bd\'b5\'b2\'bf\'ce\'b4\'bc\'fb\'d2\'ec\'b3\'a3\'a1\'a3\fs26\par }


新建TXT文档 把源码复制进去 然后把文件改为.rtf 显示如下

食管:下端黏膜局部充血,呈“栅栏”样改变,扩张度好,齿状线清晰。
贲门:粘膜光滑,未见异常.
胃底:因患者不能耐受未检查。
胃体:粘膜光滑,色泽潮红,未见溃疡及出血。
胃角:粘膜红白相间,粘膜光滑柔软,蠕动可。
胃窦:粘膜光滑,红白相间,以红为主,未见出血及溃疡,蠕动尚可。
幽门:呈圆形,开闭尚可,粘膜皱襞光滑,色泽淡红,未见出血及溃
疡。
十二指肠:球部及降部未见异常。


...全文
821 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
xuzuning 2018-09-24
  • 打赏
  • 举报
回复
对于 \'ca\'b3
请看这个事实:
? CHR(0xca)+CHR(0xb3)
输出:食
lygcw9602 2018-09-14
  • 打赏
  • 举报
回复
论坛现在不能上传文件
这么大的论坛不能上传文件,真是悲哀啊
qq_40365587 2018-09-14
  • 打赏
  • 举报
回复
把文字转成文件发过来,这样乱码
lygcw9602 2018-09-12
  • 打赏
  • 举报
回复
winxp vfp9 7423 下 oo = CreateObject('RICHTEXT.RichtextCtrl') 运行错误
lygcw9602 2018-09-12
  • 打赏
  • 举报
回复
{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fprq2\fcharset134 \'cb\'ce\'cc\'e5;}{\f1\fnil\fcharset134 \'cb\'ce\'cc\'e5;}}
\viewkind4\uc1\pard\kerning2\f0\fs21 21\'a3\'ae\'c8\'e7\'cd\'bc\'a3\'ac\'d4\'da\'c6\'bd\'c3\'e6\'d6\'b1\'bd\'c7\'d7\'f8\'b1\'ea\'cf\'b5xOy\'d6\'d0\'a3\'ac\'b5\'e3A\'d7\'f8\'b1\'ea\'ce\'aa\'a3\'a88\'a3\'ac0\'a3\'a9\'a3\'ac\'b5\'e3B\'d4\'day\'d6\'e1\'b5\'c4\'d5\'fd\'b0\'eb\'d6\'e1\'c9\'cf\'a3\'ac\'c7\'d2cot\'a1\'cfOAB=\'a3\'ac\'c5\'d7\'ce\'ef\'cf\'dfy=\'a9\'81x\super 2\nosupersub +bx+c\'be\'ad\'b9\'fdA\'a1\'a2B\'c1\'bd\'b5\'e3\'a3\'ae
\par \'a3\'a81\'a3\'a9\'c7\'f3b\'a1\'a2c\'b5\'c4\'d6\'b5\'a3\'bb
\par \'a3\'a82\'a3\'a9\'b9\'fd\'b5\'e3B\'d7\'f7CB\'a1\'cdOB\'a3\'ac\'bd\'bb\'d5\'e2\'b8\'f6\'c5\'d7\'ce\'ef\'cf\'df\'d3\'da\'b5\'e3C\'a3\'ac\'d2\'d4\'b5\'e3C\'ce\'aa\'d4\'b2\'d0\'c4\'a3\'acCB\'ce\'aa\'b0\'eb\'be\'b6\'b3\'a4\'b5\'c4\'d4\'b2\'bc\'c7\'d7\'f7\'d4\'b2C\'a3\'ac\'d2\'d4\'b5\'e3A\'ce\'aa\'d4\'b2\'d0\'c4\'a3\'acr\'ce\'aa\'b0\'eb\'be\'b6\'b3\'a4\'b5\'c4\'d4\'b2\'bc\'c7\'d7\'f7\'d4\'b2A\'a3\'ae\'c8\'f4\'d4\'b2C\'d3\'eb\'d4\'b2A\'cd\'e2\'c7\'d0\'a3\'ac\'c7\'f3r\'b5\'c4\'d6\'b5\'a3\'bb
\par \'a3\'a83\'a3\'a9\'c8\'f4\'b5\'e3D\'d4\'da\'d5\'e2\'b8\'f6\'c5\'d7\'ce\'ef\'cf\'df\'c9\'cf\'a3\'ac\'a1\'f7AOB\'b5\'c4\'c3\'e6\'bb\'fd\'ca\'c7\'a1\'f7OBD\'c3\'e6\'bb\'fd\'b5\'c48\'b1\'b6\'a3\'ac\'c7\'f3\'b5\'e3D\'b5\'c4\'d7\'f8\'b1\'ea\'a3\'ae
\par \lang2052\kerning0\f1\fs29{\pict\wmetafile8\picw6405\pich4685\picwgoal3631\pichgoal2656
010009000003a056000000007b56000000000400000003010800050000000b0200000000050000
000c02b200f300030000001e0004000000070104007b560000410b2000cc00b100f20000000000
b100f2000000000028000000f2000000b100000001000800000000000000000000000000000000
00000000000000000000000000ffffff00fefefe000072ba00eaba7200d4fefe0072009b00feea
ba0072baea00d49b00009bbaea009bd4fe00ba720000fefeea00babad400baeafe00ba727200fe
d4ba009b007200eafed400ba9bba00f7f7f7009bbaba00a7a7a70000009b0040404000fed4d400
08080800d7d7d700baeaea00fefed400cfcfcf0097979700707070006868680038383800101010
009f9f9f00dfdfdf0058585800282828003030300060606000e7e7e70020202000181818008f8f
8f00bfbfbf00c7c7c700efefef004848480050505000b7b7b700afafaf007f7f7f007878780087
8787005d5d5d00eafefe00fed49b0017171700720000009b009b00720072007272ba0000007200
9b000000f8f8f8005f5f5f00f0f0f000e9e9e9009c9c9c00272727008e8e8e000e0e0e00363636
00bad4fe00009bd40072bad400729bd4009b727200d4d49b00eaba9b00d49b72009b9bd400d4fe
d400ead4d400000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000202020202020202020202020202020202020202
020202020202020202020235330202020202020202020202020202020202020202020202020202
020202020202020202020002020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202022a25020202020202020202020202020202020202
02020202020202020202020202020202020202020202020202020200ff02020202020202020202
020202020202020202020202020202020202020202312402020202020202020202020202020202
020202020202020202020202020202020202020200020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
02020202020202020202020202020202020202020202020202020202022c260202020202020202
02020202020202020202020202020202020202020202020202020202020202020202020202ffff
0202020202020202020202020202020202020202020202020202020202020202291f0202020202
020202020202020202020202020202020202020202020202020202020202000202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
02020202020202020202020202020202020202020202020202020202020202020202020202021c
280202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020200ff0202020202020202020202020202020202020202020202020202020202
020202212e02020202020202020202020202020202020202020202020202020202020202020202
020002020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
0202020202020202022e2102020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202000002020202020202020202020202020202020202
020202020202020202020202023533020202020202020202020202020202020202020202020202
020202020202020202020200020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202023335020202020202020202020202020202020202
02020202020202020202020202020202020202020202020202020202ffff020202020202020202
020202020202020202020202020202020202020202020231240202020202020202020202020202
020202020202020202020202020202020202020202000202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020224310202020202020202
0202020202020202020202020202020202020202020202020202020202020202020202020202ff
ff020202020202020202020202020202020202020202020202020202020202020202192f020202
020202020202020202020202020202020202020202020202020202020202020002020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020230
230202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202ffff02020202020202020202020202020202020202020202020202020202
020202020236360202020202020202020202020202020202020202020202020202020202020202
020200020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202363602020202020202020202020202020202020202020202020202020202
02020202020202020202020202020202020202ff00020202020202020202020202020202020202
0202020202020202020202020202022f1902020202020202020202020202020202020202020202
020202020202020202020202000202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
02020202020202020202020202020202020202192f020202020202020202020202020202020202
0202020202020202020202020202020202020202020202020202020202ffff0202020202020202
02020202020202020202020202020202020202020202020202152d310202020202020202020202
020202020202020202020202020202020202020202020002020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202021524150202020202020202
0202020202020226192b0202020202020202020202020202020202020202020202020202020202
ffff02020202020202020202020202020202020202020202020202020202020202020202333502
020202020202020202020202020202020202020202020202020202020202020200020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
02020202020202020202020202020202020202020202020202020202020202020202020202022f
190202020202020202020202020202022529300202020202020202020202020202020202020202
020202020202020202020000020202020202020202020202020202020202020202020202020202
020202020202022e210202020202020202020202020202020202020202023a0300003d07020202
020202000202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202020202020202
020202020202020202020202020202020202020202020202020202020202020202003d073a0300
000902020202020202363602020202020202020202020202312a2a310202020202020202020202
020202020202020202020202020202020202020200000202020202020202020202020202020202
02020202020202020202020202020202021c280202020202020202020202020202020202020202
024d0c0d020f410902020202020002020202020202020202020202020202020202020202020202
0202020202020202020202020202020202020202
lygcw9602 2018-09-12
  • 打赏
  • 举报
回复
刚才在家里的电脑试了一下,可以显示正常结果了。
在单位的电脑上不行。
lygcw9602 2018-09-12
  • 打赏
  • 举报
回复
谢谢老人家啊
都市夜猫 2018-09-12
  • 打赏
  • 举报
回复
引用 2 楼 lygcw9602 的回复:
winxp vfp9 7423 下 oo = CreateObject('RICHTEXT.RichtextCtrl') 运行错误

得看报的什么错

如果是 Class definition is not found,确保你的电脑上正确安装并注册了富文本控件,且 vfp 的 set oleobject 处于 on 状态(默认是 on)

如果是 Class is not licensed for use,说明此控件在你的电脑上没有设计时授权,去搜索下载一个叫 vb6controls.reg 的文件,双击导入你的注册表,获得动态创建此控件的微软授权
都市夜猫 2018-09-11
  • 打赏
  • 举报
回复
Text to rtf Noshow
{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 \'cb\'ce\'cc\'e5;}} \viewkind4\uc1\pard\lang2052\f0\fs28\'ca\'b3\'b9\'dc:\'cf\'c2\'b6\'cb\'f0\'a4\'c4\'a4\'be\'d6\'b2\'bf\'b3\'e4\'d1\'aa\'a3\'ac\'b3\'ca\ldblquote\'d5\'a4\'c0\'b8\rdblquote\'d1\'f9\'b8\'c4\'b1\'e4\'a3\'ac\'c0\'a9\'d5\'c5\'b6\'c8\'ba\'c3\'a3\'ac\'b3\'dd\'d7\'b4\'cf\'df\'c7\'e5\'ce\'fa\'a1\'a3\par \'ea\'da\'c3\'c5:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'ce\'b4\'bc\'fb\'d2\'ec\'b3\'a3.\par \'ce\'b8\'b5\'d7:\'d2\'f2\'bb\'bc\'d5\'df\'b2\'bb\'c4\'dc\'c4\'cd\'ca\'dc\'ce\'b4\'bc\'ec\'b2\'e9\'a1\'a3\par \'ce\'b8\'cc\'e5:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'c9\'ab\'d4\'f3\'b3\'b1\'ba\'ec\'a3\'ac\'ce\'b4\'bc\'fb\'c0\'a3\'d1\'f1\'bc\'b0\'b3\'f6\'d1\'aa\'a1\'a3\par \'ce\'b8\'bd\'c7:\'d5\'b3\'c4\'a4\'ba\'ec\'b0\'d7\'cf\'e0\'bc\'e4\'a3\'ac\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'c8\'e1\'c8\'ed\'a3\'ac\'c8\'e4\'b6\'af\'bf\'c9\'a1\'a3\par \'ce\'b8\'f1\'bc:\'d5\'b3\'c4\'a4\'b9\'e2\'bb\'ac\'a3\'ac\'ba\'ec\'b0\'d7\'cf\'e0\'bc\'e4\'a3\'ac\'d2\'d4\'ba\'ec\'ce\'aa\'d6\'f7\'a3\'ac\'ce\'b4\'bc\'fb\'b3\'f6\'d1\'aa\'bc\'b0\'c0\'a3\'d1\'f1\'a3\'ac\'c8\'e4\'b6\'af\'c9\'d0\'bf\'c9\'a1\'a3\par \'d3\'c4\'c3\'c5:\'b3\'ca\'d4\'b2\'d0\'ce\'a3\'ac\'bf\'aa\'b1\'d5\'c9\'d0\'bf\'c9\'a3\'ac\'d5\'b3\'c4\'a4\'d6\'e5\'f4\'c5\'b9\'e2\'bb\'ac\'a3\'ac\'c9\'ab\'d4\'f3\'b5\'ad\'ba\'ec\'a3\'ac\'ce\'b4\'bc\'fb\'b3\'f6\'d1\'aa\'bc\'b0\'c0\'a3\par \'d1\'f1\'a1\'a3\par \'ca\'ae\'b6\'fe\'d6\'b8\'b3\'a6:\'c7\'f2\'b2\'bf\'bc\'b0\'bd\'b5\'b2\'bf\'ce\'b4\'bc\'fb\'d2\'ec\'b3\'a3\'a1\'a3\fs26\par}
EndText
oo = CreateObject('RICHTEXT.RichtextCtrl')
oo.TextRTF = rtf
MessageBox(oo.Text)

2,723

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧