起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: 浩繁

【结】有办法把TMemo的内容导出编码格式为UTF-8的html文件吗?

[复制链接]
发表于 2010-4-30 13:51:57 | 显示全部楼层
那如果直接调用memo.lines.savetofile
会有什么问题?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-4-30 14:12:04 | 显示全部楼层
如果直接保存,但文件的格式就是ANSI编码了。这样处理,文件内容里的控制标签就不起作用。
回复 支持 反对

使用道具 举报

发表于 2010-4-30 15:38:34 | 显示全部楼层
procedure TMainForm.Button4Click(Sender: TObject);
var
      t:tstringlist;
begin
      t:=tstringlist.Create;
      t.add(Business.System.System_.ansitoutf8(memo1.Text));
      //ShowMessage(t.Text);
      t.SaveToFile('e:\test.html');
      t.free;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-4 18:22:42 | 显示全部楼层
不好意思,今天有点事。
这样保存勉强可行,因为只是把文件内容改为UTF-8而已,而文件头的信息仍然是ANSI,
所以用文本文件打开的都是乱码哦。
回复 支持 反对

使用道具 举报

发表于 2010-5-5 10:36:22 | 显示全部楼层
我怎么没有试验出来呢?
你吧你的memo里面的内容和导出后的文件发给我看看
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-5 11:26:02 | 显示全部楼层
原始内容
<?xml version="1.0" encoding="GBK"?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
  <title>基建线路</title>
</head>
<body>
<div id="container">
  <div id="header" style="display:none"></div>
  <div id="menuone" style="padding-top:5px">
    <input id="btnZoomIn" type="button" value="放大" onclick="ZoomIn();" />
    <input id="btnZoomOut" type="button" value="缩小" onclick="ZoomOut();" />
    <input id="btnFullMap" type="button" value="全图" onclick="ShowFullMap();" />
    <input id="btnPriorV" type="button" value="后退" onclick="riorView();" />
    <input id="btnNextV" type="button" value="前进" onclick="NextView();" />
    <input id="btnMeasureD" type="button" value="测距" onclick="MeasureDist();" />
    <input id="btnMeasureA" type="button" value="测面" onclick="MeasureArea();" />
    <input id="btnClear" type="button" value="清除" onclick="ClearOp();" />
    <font color="white"> 杆塔编号:</font>
    <select id="GtList">
      <option value="106.678,26.7219">1</option>
      <option value="106.68,26.7229">2</option>
    </select>
    <input id="btnShowAcrsL" type="button" value="交叉查询" onclick="ShowAccrossLine();" />
    <br>
    <span id="distance" style="color:white; padding-left:10px"></span>
  </div>
  <div id="mainContent">
    <div id="sidebar" style="display:true"></div>
    <div id="content" class="content tundra"></div>
  </div>
</div>
</body>
</html>
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-5 11:27:35 | 显示全部楼层
经过UTF-8处理字符串后,导出来的内容如下
<?xml version="1.0" encoding="GBK"?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
  <title>鍩哄缓绾胯矾</title>
</head>
<body>
<div id="container">
  <div id="header" style="display:none"></div>
  <div id="menuone" style="padding-top:5px">
    <input id="btnZoomIn" type="button" value="鏀惧ぇ" onclick="ZoomIn();" />
    <input id="btnZoomOut" type="button" value="缂╁皬" onclick="ZoomOut();" />
    <input id="btnFullMap" type="button" value="鍏ㄥ浘" onclick="ShowFullMap();" />
    <input id="btnPriorV" type="button" value="鍚庨€€" onclick="riorView();" />
    <input id="btnNextV" type="button" value="鍓嶈繘" onclick="NextView();" />
    <input id="btnMeasureD" type="button" value="娴嬭窛" onclick="MeasureDist();" />
    <input id="btnMeasureA" type="button" value="娴嬮潰" onclick="MeasureArea();" />
    <input id="btnClear" type="button" value="娓呴櫎" onclick="ClearOp();" />
    <font color="white">銆€鏉嗗缂栧彿:</font>
    <select id="GtList">
      <option value="106.678,26.7219">1</option>
      <option value="106.68,26.7229">2</option>
    </select>
    <input id="btnShowAcrsL" type="button" value="浜ゅ弶鏌ヨ" onclick="ShowAccrossLine();" />
    <br>
    <span id="distance" style="color:white; padding-left:10px"></span>
  </div>
  <div id="mainContent">
    <div id="sidebar" style="display:true"></div>
    <div id="content" class="content tundra"></div>
  </div>
</div>
</body>
</html>
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-5 11:28:52 | 显示全部楼层
导出后的文件还是可以正常以HTML格式浏览。
回复 支持 反对

使用道具 举报

发表于 2010-5-5 11:56:29 | 显示全部楼层
用记事本打开是正常的啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-5-5 11:58:33 | 显示全部楼层
上面的乱麻,就是用记事本打开呀。
不过还好,通过浏览器,可以正常浏览。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 01:11 , Processed in 0.041861 second(s), 12 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表