Foxtable(狐表)用户栏目专家坐堂 → 照片重命名什么改


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

主题:照片重命名什么改

帅哥哟,离线,有人找我吗?
qazlinle6
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
照片重命名什么改  发帖心情 Post By:2022/2/23 10:28:00 [只看该作者]

For Each key As String In e.Files.Keys
                If key = "up1" Then
                    Dim lst As List(of String) = dr.Lines("账号头像图片")
                    For Each fln As String In e.Files(key)
                       ' Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username")  &"' " )
                        e.SaveFile(key,fln, "D:\web\img\头像\" & fln)
                        lst.Add(fln)
                    Next
                    dr.Lines("账号头像图片") = lst
                End If
            Next
            If e.PostValues.ContainsKey("up1_deleted") Then
            Dim Files = e.PostValues("up1_deleted").Split("|")
            Dim lst As List(of String) = dr.Lines("账号头像图片")
            For Each File As String In Files
            lst.Remove(File.Trim(".").Replace("img/头像/",""))
            file = "d:\web\" & File.Trim(".")
            If Filesys.FileExists(file) Then
            Filesys.DeleteFile(file)
            End If
            Next
            dr.Lines("账号头像图片") = lst




            End If
照片重命名什么改

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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/2/23 10:40:00 [只看该作者]

                If key = "up1" Then
                    Dim lst As List(of String) = dr.Lines("账号头像图片")
                    For Each fln As String In e.Files(key)
msgbox(fln)
dim sr() as string = fln.split(".")
dim ss as string = "xxx新名称"  & sr(1)
msgbox(ss)
                       ' Dim ddr As DataRow= DataTables("Users").SQLFind("Name='"& e.Cookies("username")  &"' " )
                        e.SaveFile(key,fln, "D:\web\img\头像\" & ss)
                        lst.Add(ss)
                    Next
                    dr.Lines("账号头像图片") = lst
                End If
            Next

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/3/12 15:05:00 [只看该作者]

xxx新名称1
xxx新名称2
xxx新名称3

不要改成重名

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


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

这比较麻烦,每次都要遍历文件夹里面所有文件名判断有没有重复。

建议使用编号+时间的方式命名

dim sr() as string = fln.split(".")
dim ss as string = dr("编号") & format(date.now ,"yyMMddHHmmssfffff")  & sr(1)

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/3/15 11:15:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar



为什么有个手机上传图片,是这个格式

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


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

我也不知道为什么

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/3/16 17:13:00 [只看该作者]

好像截屏的都会这样

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/3/16 23:31:00 [只看该作者]

只要是安卓手机,截屏就会命名Screenshot_20220316_232214_com.taobao.taobao.jpg
然后上传图片重命名就会重命名成123456.taobao

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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/17 8:51:00 [只看该作者]

dim sr() as string = fln.split(".")
dim ss as string = dr("编号") & format(date.now ,"yyMMddHHmmssfffff") & “.”  & sr(sr.length - 1)
[此贴子已经被作者于2022/3/17 8:51:21编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1553 积分:10501 威望:0 精华:0 注册:2013/6/8 16:19:00
  发帖心情 Post By:2022/3/19 10:30:00 [只看该作者]

ok 谢谢

 回到顶部