以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据条件把内容打印在不同坐标  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78801)
--  作者：wh420
--  发布时间：2015/12/17 14:03:00
--  根据条件把内容打印在不同坐标

 见如下代码：如何实现当宽度超过一定范围时（例如超过4个汉字时），4个字之内按一组X、Y坐标打印，超出的部分按另一组X、Y坐标打印？

 

   Dim lujie As New prt.RenderText 

    lujie.Text  = txtjie.Value
    lujie.X = val(.rows(0)("收件人地址_X")) + zpy
    lujie.y = val(.rows(0)("收件人地址_Y")) + spy

    lujie.Width = val(.rows(0)("宽度")) + spy
    doc.body.Children.Add(lujie)

[此贴子已经被作者于2015/12/17 14:03:10编辑过]
--  作者：wh420
--  发布时间：2015/12/17 14:35:00
--  
老师咧，帮忙看看呗
--  作者：Hyphen
--  发布时间：2015/12/17 15:27:00
--  

使用表格设置，把文字分割到不同的单元格中

 

http://www.foxtable.com/help/topics/1199.htm

 
--  作者：wh420
--  发布时间：2015/12/17 16:16:00
--  
不太懂，可否在上面的代码中指点一二
--  作者：大红袍
--  发布时间：2015/12/17 17:29:00
--  
Dim str As String = "123456789"
Dim c As Integer = 0
For i As Integer = 0 To str.length \\ 4
    If str.length - c >= 4
        output.show(str.substring(i*4,4))
    Else
        output.show(str.substring(i*4))
    End If
    c += 4
Next