以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片对应插入文字中的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170939)

--  作者:林月
--  发布时间:2021/8/11 21:53:00
--  图片对应插入文字中的问题

假设有这样一个问题,在下面图中我上传了三张照片,然后我用Split把一段文字拆成了三段,这样如何在(最后一张图)按钮中实现这样的效果

也就是第一句话“我是小白”后面插入第一张图片;第二句话“Foxtable轻松即用”后面插入第二张图片;第三句话“蓝蓝老师耐心帮我答疑,而且帅!!”后面插入第三张图片;


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210811213741.png
图片点击可在新窗口打开查看



代码一

Dim Value As String = "我是小白|Foxtable轻松即用|蓝蓝老师耐心帮我答疑,而且帅!!")"

Dim sps() As Char = {"|"}
Dim
Names() As String  = Value.Split(sps)
For
Each name As String In Names
   
Output.Show(Name)
Next



代码二

Select Case e.Path

    Case "test.htm"

        Dim wb As New WeUI

        With wb.AddArticle("","ar1")

           .AddContent("              ")   ‘这里怎么填写呢’

            .AddImage("                 ")   ‘这里怎么填写呢’



        End With

        e.WriteString(wb.Build) \'生成网页

End Select




以下是需要的效果


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210811215240.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/8/11 21:56:00编辑过]

--  作者:有点蓝
--  发布时间:2021/8/12 9:17:00
--  
Dim Value As String = "我是小白|Foxtable轻松即用|蓝蓝老师耐心帮我答疑,而且帅!!"
Dim img As String = "1.jpg|3.jpg|4.jpg"
Dim Names() As String  = Value.Split("|")
Dim imgs() As String  = img.Split("|")

……

        With wb.AddArticle("","ar1")

for i as integer = 0 to Names.length  - 1

           .AddContent(Names(i))   ‘这里怎么填写呢’

            .AddImage(imgs(i))   ‘这里怎么填写呢’

next


        End With