[求教]字符串截取2个字符和循环图片框的问题

relax

字符串截取问题：
在C盘Alspot目录下有很多文件夹 ，这些文件夹里放置着很多图片


分别取出2个目录下的文件路径 ，如下图：

我百度了一下 ，"C:\Alspot\"要取出后面的字符串 用 取文本中间() 函数 好像只能取出指定的位置和字符数目 。

代码如：
编辑框2.内容 = 取文本右边 ( 编辑框2.内容 , 取文本长度(编辑框1.内容) - 倒找文本(编辑框1.内容 ,"/" , ,假 ) )
得到的结果如 23555_1.gif ，如何只取出数字部分呢？


（紧接上面的问题）
  图片框问题：
因为有几百张至上千张图片 ，怎么才能把它们像表格一样列出来呢 ？
（下图为模拟效果图）


不知道是如何实现的 ？
求助好心人提示一下实现的思路或者是建议！{:soso_e154:}

exit11

得到的结果如 23555_1.gif ，如何只取出数字部分呢
将结果再取左边的就好了

将所有的图片路径存放到一个数组里，然后按指定顺序读到图片框

relax

exit11 发表于 2011-9-8 13:54
得到的结果如 23555_1.gif ，如何只取出数字部分呢
将结果再取左边的就好了

/9/ 和 /10/ 这2个应该怎么取呢 ？
图片放到数组里了，但是图片框也只有一个啊。应该怎么将图片框循环出来啊。

exit11

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 xx, 文本型
.局部变量 a
.局部变量 b

xx ＝ “c:\sdfsd\9\123_1.kkk”
a ＝ 倒找文本 (xx, “\”, , 假)
调试输出 (取文本右边 (xx, 取文本长度 (xx) － a))  ' 带后缀

a ＝ 倒找文本 (xx, “.”, , 假)
b ＝ 倒找文本 (xx, “\”, a, 假)
调试输出 (取文本中间 (xx, b ＋ 1, a － b － 1))  ' 不带后缀
a ＝ 倒找文本 (xx, “\”, , 假)
b ＝ 倒找文本 (xx, “\”, a － 1, 假)
调试输出 (取文本中间 (xx, b ＋ 1, a － b － 1), b, a, b － a)  ' 所在目录

exit11

[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 路径, 文本型, , "0"
.程序集变量 当前位置, 整数型
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 x, 整数型
文件名 ＝ 寻找文件 (“D:\data\桌面\sgs\*.*”, )
.判断循环首 (文件名 ≠ “”)
    .如果真 (文件名 ≠ “”)
        加入成员 (路径, “D:\data\桌面\sgs\” ＋ 文件名)
    .如果真结束
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 _按钮2_被单击
.局部变量 x, 整数型
.局部变量 计次, 整数型
.判断开始 (当前位置 ＝ 0 或 当前位置 ＞ 取数组成员数 (路径))
    当前位置 ＝ 1
.默认
.判断结束
图片框1.图片 ＝ 读入文件 (路径 [当前位置])
当前位置 ＝ 当前位置 ＋ 1[/e]

relax

exit11 发表于 2011-9-8 15:27

这种效果如何实现啊？ 刚看了下你写的图片框，只有一个，我想的是一张图片一个图片框，但是手动加得有几千个。。

qq793359277

这种图片 应该使用超级列表框
你的取子目录 应该用 批量取中间   在取出结果里找下位置就可以了