-- 作者: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
|