- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [分享] 对齐导出的文本 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41560)
-- 发布时间：2013/10/22 15:00:00
-- [分享] 对齐导出的文本
hanxuntx大侠要求对齐导出的文本文件，而且已经以Html的形式得到了解决，但对一般水平的狐友来说，不是件容易的事。
本案例完全以狐表的的功能，得以实现。效果不差呀。
用法：
1、正常导出文本文件
2、填写各列之间间隔的宽度（默认16，与字符列默认宽度一致）
3、点击窗口中的“对齐文本”按钮，打开导出的文本文件。
技巧：
文本特长的列如【备注】列放到最后一列。
以下内容只有回复后才可以浏览
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出并对齐文本.table |
-- 发布时间：2013/10/22 15:00:00
--
顶!!!
-- 发布时间：2013/10/22 16:03:00
--
顶
-- 发布时间：2013/10/22 16:04:00
--
是故意将文件放到外面？
-- 发布时间：2013/10/22 16:17:00
--
Mark，学习下
-- 发布时间：2013/10/22 16:48:00
--
谢谢lsy的热情帮助。
学习了。
-- 发布时间：2013/10/22 16:51:00
--
谢谢lsy的热情帮助。
学习了。
你的HTML如何操作，请教！
-- 发布时间：2013/10/22 19:35:00
--
哈哈，还挺好用的。
-- 发布时间：2013/10/22 20:01:00
--
学习
-- 发布时间：2013/10/22 20:47:00
--
下面是把表格转换为网页的代码
Dim mytable As Table = CurrentTable
Dim result As String = "<table style=""font-size: 12px"">"
result += "<tr>"
For i As Integer = 0 To mytable.Cols.Count - 1
result += "<td style=""color: #ffffff; background-color: #cc3333"">" & mytable.Cols(i).Caption & "</td>"
Next
result += "</tr>"
For j As Integer = 0 To mytable.Rows.Count - 1
result += "<tr>"
For k As Integer = 0 To mytable.Cols.Count - 1
result += "<td style=""background-color: whitesmoke"">" & mytable.Rows(j)(k) & "</td>"
Next
result += "</tr>"
Next
result += "</Table>"