Foxtable(狐表)用户栏目专家坐堂 → [求助]筛选


  共有2659人关注过本帖树形打印复制链接

主题:[求助]筛选

美女呀,离线,留言给我吧!
OKK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
[求助]筛选  发帖心情 Post By:2019/3/15 22:17:00 [只看该作者]

运行以下代码:

Dim str As String = "d:\图片\" & "陈杰" & "\"
If filesys.DirectoryExists(str) = True Then
For Each ff As String In filesys.GetFiles(str)
output.show(ff)
Next
End If

得出以下结果:

d:\图片\陈杰\tt6613y4.jpg
d:\图片\陈杰\6a622k86.jpg
d:\图片\陈杰\663d44h533.jpg
d:\图片\陈杰\6s64b21.jpg


怎样才能筛选出1个,例如:

d:\图片\陈杰\tt6613y4.jpg





 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/15 22:23:00 [只看该作者]

按什么条件筛选?如果知道具体的名称,直接按名称取文件不就行了

 回到顶部
美女呀,离线,留言给我吧!
OKK
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/15 22:46:00 [只看该作者]

不知道名称啊,只知道文件夹名称,而且也不知道数量

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/15 22:54:00 [只看该作者]

那按照什么条件筛选啊,随便取一个?

 回到顶部
美女呀,离线,留言给我吧!
OKK
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/15 23:01:00 [只看该作者]

不是,是每个都需要用,放到以下代码中

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1",
"
客户资料")
            .AddInput(
"
姓名","姓名","text").value = "舒淇"
            .AddInput(
"
地点","地点","text").Value = "蒙古草原"
            .AddInput(
"
日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False 
'
关闭文件上传功能
                .AddImage("
tt6613y4.jpg")
                .AddImage("
6a622k86.jpg")
                .AddImage("
663d44h533.jpg")
                .AddImage("
6s64b21.jpg")
            End With
        End With
        
e.WriteString(wb.Build'生成网页
End
 Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/15 23:05:00 [只看该作者]

With .AddUploader("up1","",True)
    .AllowAdd = False '关闭文件上传功能
    Dim str As String = "d:\图片\" & "陈杰" & "\"
    If filesys.DirectoryExists(str) = True Then
        For Each ff As String In filesys.GetFiles(str)
            .AddImage(filesys.GetName(ff ))
        Next
    End If
End With


 回到顶部
美女呀,离线,留言给我吧!
OKK
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/15 23:18:00 [只看该作者]

这样可以,谢谢,,,但还有一个问题,为什么点击图片打开后,无法保存图片,只能保存网页

请问怎样才能有保存图片的功能?




 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/16 9:11:00 [只看该作者]

在手机里保存?点击到大图模式,然后按住不动,会弹出菜单,选“保存图片”

 回到顶部
美女呀,离线,留言给我吧!
OKK
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/16 11:59:00 [只看该作者]

可以保存了,谢谢图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
OKK
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2019/3/18 14:21:00 [只看该作者]


不能保存图片

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" '这里加上了css扩展名
            e.WriteFile(fl)
    End Select
Else


Select Case e.Path
    Case "upload.htm"
        Dim wb As New weui
        wb.AddForm("","form1","receive.htm")
        With wb.AddInputGroup("form1","ipg1","上传文件")
            With .AddUploader("ABC128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许 重复选择文件或连续拍照
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "receive.htm"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
End Select
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","浏览文件")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","照片",True)
                .AllowAdd = False '关闭文件上传功能
                 'AddImage的第一个参数为缩略图,第二个参数为原图
                .AddImage("./uploadfiles/刘德华.jpg","./uploadfiles/刘德华.jpg")
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select


End If






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


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

长按图片总框着照片那两个字,我看了代码也没错,到底是哪里错了?

 回到顶部
总数 12 1 2 下一页