以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请高手指点,把字符写入文本时的格式如何实现如下图所示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5088)

--  作者:baoxyang
--  发布时间:2009/11/21 14:36:00
--  请高手指点,把字符写入文本时的格式如何实现如下图所示?
第一幅为需要的导出格式:行换符为"$",空格为"-",
狐表中用如下代码:产生的效果为图二,空格为".",行换符像q形状。请教如何实现图一行换符为"$",空格为"-"呢?谢谢!
    s1 = str.ToString.PadRight(10-l1)
    s2 = r("捆包号").ToString.PadRight(30-l2)
    s3 = r("仓位代码").ToString.PadRight(11-l3)
    s4 = r("捆包号").ToString.PadRight(30-l4)
    s5 = r("重量").ToString.PadRight(6)
    s6 = r("重量").ToString.PadRight(6)
    s7 = r("钢号").ToString.PadRight(20-l5)
    s8 = r("规格").ToString.PadRight(52-l6)
    s9 = "1".ToString.PadRight(2)
    s = s & s1 & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9
    s = s & Chr(13) \'& Chr(10) 

图片点击可在新窗口打开查看此主题相关图片如下:文本格式1.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:文本格式2.gif
图片点击可在新窗口打开查看