十年磨一剑，百年练秉性

名字：PbootCMS 官网：https://www.pbootcms.com/

主页：www.freehosting.com

控制面板：https://panel.freehosting.com:2222/

设置ip地址时提示错误 为了配置 TCP/IP，必须安装并启用网络适配器卡

上网正常.

设备管理器-网络适配器-找到网卡-卸载-保留驱动-确定-查找新硬件

解决问题

微软帮助地址： http://support.microsoft.com/kb/308939/zh-cn

刚才看书 发现角落里还有一个split 函数

101-主任-韩梅梅

可以直接用split 取到数组里

dim bh(3)

bh=split(“101-主任-韩梅梅”,”-“)

bh(0) = 101

bh(1) = 主任

bh(2) = 韩梅梅

该方法的取值文件名格式”101-主任-韩梅梅.jpg”.

看不惯”-“的自己改。我看着也TMD别扭,又不敢让客户用空格,只能这样了。

数据多就用二维数组,估计你也用不上,一个破文件名最多才多少字。

有需要的朋友,自己拉一个Command 四个listbox。

Private Sub Command1_Click()
Dim Files() As String ‘文件名数组
Dim bianhao() As String ‘编号数组
Dim zhiwu() As String ‘职务数组
Dim xingming() As String ‘姓名数组
Dim i, a, b, c As Long ‘计数变量
Dim path As String ‘读取文件夹路径
Dim filetype As String ‘文件类型
Dim jpgname As String ‘文件名
Dim djpgname As String ‘去后缀名文件名

path = dv & “\上传\” & rsini(“keshiming”)  ‘自己换路径
filetype = “*.jpg”  ‘查找执行文件类型
jpgname = Dir(path & filetype) ‘查找第一个文件
    Do While Len(jpgname) ‘循环到没有文件为止
        i = i + 1
        
        ReDim Preserve Files(1 To i)  ‘重定义数组
        ReDim Preserve bianhao(1 To i)
        ReDim Preserve xingming(1 To i)
        ReDim Preserve zhiwu(1 To i)
        
        djpgname = Left(jpgname, InStrRev(jpgname, “.jpg”) – 1) ‘去掉文件名中的.jpg
        a = InStr(1, djpgname, “-“)  ‘取第一个-的位置
        bianhao(i) = Left(djpgname, a – 1) ‘取第一个-前的字符
        
        b = InStr(a + 1, djpgname, “-“) ‘取第二个-的位置
        c = b – a – 1  ‘取第一个和第二个-中间的字符数
        
        zhiwu(i) = Mid(djpgname, a + 1, c) ‘取第一个和第二个-中间的字符
        xingming(i) = Right(djpgname, Len(djpgname) – b) ‘取最后字符
        
        Files(i) = jpgname ‘文件全名存放到数组中
        
        List1.AddItem Files(i) ‘加入list控件中
        List2.AddItem bianhao(i)
        List3.AddItem zhiwu(i)
        List4.AddItem xingming(i)
        
        jpgname = Dir ‘查找下一个文件
        DoEvents
    Loop
End Sub

http://docs.nuget.org/docs/start-here/installing-nuget