主题：截取图片列字符串一部分打印

当前表有一图片列，如下：
此主题相关图片如下：444.jpg

在专业报表中，想把图片列路径字符截取一部分（从“&”到“.jpg”之间的内容）并打印出来如图：
此主题相关图片如下：210423197505133835.jpg

怎样能做到？

在命令窗口测试一下：

 

 

Dim s as string = "c:\照片\&1234566.jpg"
s = s.Substring(s.indexof("&") + 1)
s= s.Substring(0,s.indexof("."))
output.show(s)

另外：

1.专业报表中，如果我只定义一个图片对象，能实现在多个地方打印这一个图片吗？

Dim tp As New prt.RenderImage '定义一个图片对象

2.如果我已设计好专业报表代码，想在多个地方调用，而不是每次都把报表代码复制过去，有没有类似于“类”的方法，想调用就调用？

1、变量可以重用：
 
Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("EP1.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
 
rm = New prt.RenderImage
rm.Image = GetImage("EP2.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表

rm = New prt.RenderImage
rm.Image = GetImage("EP3.BMP") '设置图片
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表


Doc.Preview() '预览
 
2、定义内部函数，可以重复掉用 

专业报表真牛！