Foxtable(狐表)用户栏目专家坐堂 → 如何生成网页


  共有1991人关注过本帖树形打印复制链接

主题:如何生成网页

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
如何生成网页  发帖心情 Post By: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>&nbsp;&nbsp;&nbsp;网上银行电子回单</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">&nbsp;</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> 屋中介服务有限公司 &nbsp;</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>某有限公司&nbsp;</td></tr>
        '<tr><td width=64 height=20 align=center valign=middle>账 号</td>
        '<td width=189 height=20 align=left valign=middle>12110120192002125&nbsp;</td>
        '<td width=73 height=20 align=center valign=middle>账 号</td>
        '<td width=198 height=20 align=left valign=middle>1211020019200161&nbsp;</td></tr>
        '<tr><td width=64 height=20 align=center valign=middle>开户银行</td>
        '<td width=189 height=20 align=left valign=middle>中国工商银行股份有限公司绍兴分行营业部&nbsp;</td>
        '<td width=73 height=20 align=center valign=middle>开户银行</td>
        '<td width=198 height=20 align=left valign=middle>中国工商银行绍兴县支行&nbsp;</td></tr>
        '<tr><td height=20 colspan=2 align=center valign=middle>金 额</td>
        '<td colspan=4 align=left valign=middle>人民币(大写):壹佰万元整   ¥1,000,000.00&nbsp;</td></tr>
        '<tr><td height=20 colspan=2 align=center valign=middle>摘 要</td>
        '<td align=left valign=middle>划款&nbsp;</td>
        '<td colspan=2 align=center valign=middle>业务(产品)种类</td>
        '<td align=left valign=middle>普通贷记&nbsp;</td></tr>
        '<tr><td height=20 colspan=2 align=center valign=middle>用 途</td>
        '<td colspan=4 align=left valign=middle>划款&nbsp;</td></tr>
        '<tr><td height=20 colspan=2 align=center valign=middle>交易流水号</td>
        '<td align=left valign=middle>4530736&nbsp;</td>
        '<td colspan=2 align=center valign=middle>时间戳</td>
        '<td align=left valign=middle>2015-03-03 09:41:21&nbsp;</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&nbsp;</td>
        '<td height=20 width=75 align=center valign=middle>记账柜员</td>
        '<td height=20 width=125 align=left valign=middle>23&nbsp;</td>
        '<td height=20 width=75 align=center valign=middle>记账日期</td>
        '<td height=20 width=125 align=left valign=middle>2015年03月03日&nbsp;</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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/11/16 11:17:00 [只看该作者]

生成后的格式
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/16 11:17:00 [只看该作者]

参考:http://www.foxtable.com/mobilehelp/scr/0013.htm
每一行都用sb.AppendLine

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 11:40:00 [只看该作者]

可以直接使用设置好的网页的,如

 

http://www.foxtable.com/mobilehelp/scr/0020.htm

 

也可以读取你设置好的网页模板,然后替换里面部分内容的。


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/11/16 12:47:00 [只看该作者]

也可以读取你设置好的网页模板,然后替换里面部分内容的。

里面的内容如何替换?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By: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)

替换后个文件的内容如何放回去?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 15:40:00 [只看该作者]

读取,替换,生成网页

 

Dim str = "<html>内容</html>"

str = str.Replace("内容", "123456789")

e.WriteString(str)


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/11/16 15:48:00 [只看该作者]

如何
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工行.rar

把网页中的中国工商银行改成中国银行?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/16 15:52:00 [只看该作者]

做模板的时候,把要替换的改成特殊字符,如

 

<td align="center" colspan="2"><font face="黑体" size="5">[银行名称]</font>&nbsp;&nbsp;&nbsp;网上银行电子回单</td>

 

然后,读取得到str

 

Dim str = FileSys.ReadAllText(“d:\test.htm")

str = str.Replace("[银行名称]", "中国银行")

e.WriteString(str)


 回到顶部
总数 12 1 2 下一页