主题：请高手指点，把字符写入文本时的格式如何实现如下图所示？

第一幅为需要的导出格式:行换符为"$",空格为"-",
狐表中用如下代码：产生的效果为图二，空格为".",行换符像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