主题：[分享] 对齐导出的文本

hanxuntx大侠要求对齐导出的文本文件，而且已经以Html的形式得到了解决，但对一般水平的狐友来说，不是件容易的事。

 

本案例完全以狐表的的功能，得以实现。效果不差呀。

用法：

1、正常导出文本文件

2、填写各列之间间隔的宽度（默认16，与字符列默认宽度一致）

3、点击窗口中的“对齐文本”按钮，打开导出的文本文件。

技巧：

文本特长的列如【备注】列放到最后一列。

 

 

---

以下内容只有回复后才可以浏览

---

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出并对齐文本.table

顶!!!

顶

是故意将文件放到外面？

Mark，学习下

谢谢lsy的热情帮助。

学习了。

你的HTML如何操作，请教！

 哈哈，还挺好用的。

学习

下面是把表格转换为网页的代码

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>"