- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何生成网页 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109653)
-- 发布时间：2017/11/16 11:14:00
-- 如何生成网页
Dim sb As New StringBuilder
sb.AppendLine("<style Type=\'text/css\'>")
\'<!--
\'Table { font-size: 12px}
\'-->
\'</style>
\'<Table width="642" align="center">
\'<tr>
sb.AppendLine("<td align=\'center\' colspan=\'2\'><font face=\'黑体\' size=\'5\'>中国工商银行</font> 网上银行电子回单</td>")
\'</tr>
\'<tr align="center">
\'<td align="center" colspan="2"><IMG SRC="blackdot.gif" WIDTH="500" HEIGHT="2" BORDER=0 ALT=""></td>
\'</tr>
\'<tr>
\'<td heigth="1" colspan="2"> </td>
\'</tr>
\'<tr>
\'<td>电子回单号码:0472-1646-4017-4614</td>
\'</tr>
\'</Table>
\'<Table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
\'<tr height="80" align="center">
\'<td>
\'<Table width="600" align="center" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
\'<tr><td width=31 height=40 rowspan=3 align=center valign=middle>付款人</td>
\'<td width=64 height=20 align=center valign=middle>户 名</td>
\'<td width=189 height=20 align=left valign=middle> 屋中介服务有限公司 </td>
\'<td width=31 height=40 rowspan=3 align=center valign=middle>收款人</td>
\'<td width=73 height=20 align=center valign=middle>户 名</td>
\'<td width=198 height=20 align=left valign=middle>某有限公司 </td></tr>
\'<tr><td width=64 height=20 align=center valign=middle>账 号</td>
\'<td width=189 height=20 align=left valign=middle>12110120192002125 </td>
\'<td width=73 height=20 align=center valign=middle>账 号</td>
\'<td width=198 height=20 align=left valign=middle>1211020019200161 </td></tr>
\'<tr><td width=64 height=20 align=center valign=middle>开户银行</td>
\'<td width=189 height=20 align=left valign=middle>中国工商银行股份有限公司绍兴分行营业部 </td>
\'<td width=73 height=20 align=center valign=middle>开户银行</td>
\'<td width=198 height=20 align=left valign=middle>中国工商银行绍兴县支行 </td></tr>
\'<tr><td height=20 colspan=2 align=center valign=middle>金 额</td>
\'<td colspan=4 align=left valign=middle>人民币(大写):壹佰万元整 ￥1,000,000.00 </td></tr>
\'<tr><td height=20 colspan=2 align=center valign=middle>摘 要</td>
\'<td align=left valign=middle>划款 </td>
\'<td colspan=2 align=center valign=middle>业务（产品）种类</td>
\'<td align=left valign=middle>普通贷记 </td></tr>
\'<tr><td height=20 colspan=2 align=center valign=middle>用 途</td>
\'<td colspan=4 align=left valign=middle>划款 </td></tr>
\'<tr><td height=20 colspan=2 align=center valign=middle>交易流水号</td>
\'<td align=left valign=middle>4530736 </td>
\'<td colspan=2 align=center valign=middle>时间戳</td>
\'<td align=left valign=middle>2015-03-03 09:41:21 </td></tr>
\'<tr><td height=100 colspan=2 rowspan=2 align=center valign=middle><img src="tuzhang.gif"></td>
\'<td height=80 colspan=4 align=left valign=top>备注：<br>客户备注： </td>
\'</tr><tr><td height=20 colspan=4 align=left valign=middle>验证码：<b>356681041654172</td></tr>
\'<tr><table width=600 border=1 cellspacing=0 cellpadding=0 bordercolorlight=#000000 bordercolordark=#FFFFFF>
\'<tr><td height=20 width=75 align=center valign=middle>记账网点</td>
\'<td height=20 width=125 align=left valign=middle>100 </td>
\'<td height=20 width=75 align=center valign=middle>记账柜员</td>
\'<td height=20 width=125 align=left valign=middle>23 </td>
\'<td height=20 width=75 align=center valign=middle>记账日期</td>
\'<td height=20 width=125 align=left valign=middle>2015年03月03日 </td></tr></Table></tr>
\'</Table>
\'</td>
\'</tr>
\'</Table>
\'<Table width="642" align="center">
\'<tr>
\'<td align="right">打印日期:2015年03月31日 </td>
\'</tr>
\'<tr><td><IMG SRC="blackdot.gif" WIDTH="642" HEIGHT="1" BORDER=0 ></td></tr>
\'<tr>
\'<td>重要提示:</td>
\'</tr>
\'<tr>
\'<td>1.如果您是收款方,请到工行网站www.icbc.com.cn电子回单验证处进行回单验证.</td>
\'</tr>
\'<tr>
\'<td>2.本回单不作为收款方发货依据,并请勿重复记账.</td>
\'</tr>
\'<tr>
\'<td>3.您可以选择发送邮件,将此电子回单发送给指定的接收人.</td>
\'</tr>
\'</Table>
\'e.WriteString(sb.ToString)
[此贴子已经被作者于2017/11/16 11:14:43编辑过]
-- 发布时间：2017/11/16 11:17:00
--
生成后的格式
此主题相关图片如下：无标题.png
-- 发布时间：2017/11/16 11:17:00
--
参考：http://www.foxtable.com/mobilehelp/scr/0013.htm
每一行都用sb.AppendLine
-- 发布时间：2017/11/16 11:40:00
--
可以直接使用设置好的网页的，如
http://www.foxtable.com/mobilehelp/scr/0020.htm
也可以读取你设置好的网页模板，然后替换里面部分内容的。
-- 发布时间：2017/11/16 12:47:00
--
也可以读取你设置好的网页模板，然后替换里面部分内容的。
里面的内容如何替换？
-- 发布时间：2017/11/16 13:03:00
--
以下是引用lihe60在2017/11/16 12:47:00的发言：
也可以读取你设置好的网页模板，然后替换里面部分内容的。
也可以读取你设置好的网页模板，然后替换里面部分内容的。
里面的内容如何替换？
http://www.foxtable.com/webhelp/scr/0344.htm
http://www.foxtable.com/webhelp/scr/0241.htm
-- 发布时间：2017/11/16 15:35:00
--
以下是引用有点甜在2017/11/16 13:03:00的发言：
http://www.foxtable.com/webhelp/scr/0344.htm
http://www.foxtable.com/webhelp/scr/0241.htm
Dim s As String ="abc123efg"
s = s.Replace("123","789")
Output.Show(s)
替换后个文件的内容如何放回去？
-- 发布时间：2017/11/16 15:40:00
--
读取，替换，生成网页
Dim str = "<html>内容</html>"
str = str.Replace("内容", "123456789")
e.WriteString(str)
-- 发布时间：2017/11/16 15:48:00
--
如何
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工行.rar |
把网页中的中国工商银行改成中国银行？
-- 发布时间：2017/11/16 15:52:00
--
做模板的时候，把要替换的改成特殊字符，如
<td align="center" colspan="2"><font face="黑体" size="5">[银行名称]</font> 网上银行电子回单</td>
然后，读取得到str
Dim str = FileSys.ReadAllText(“d:\\test.htm")
str = str.Replace("[银行名称]", "中国银行")
e.WriteString(str)