以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  照片重命名什么改  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175185)
--  作者：qazlinle6
--  发布时间：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
照片重命名什么改
--  作者：有点蓝
--  发布时间：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
--  发布时间：2022/3/12 15:05:00
--  
xxx新名称1
xxx新名称2
xxx新名称3

不要改成重名
--  作者：有点蓝
--  发布时间：2022/3/12 15:09:00
--  
这比较麻烦，每次都要遍历文件夹里面所有文件名判断有没有重复。

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

dim sr() as string = fln.split(".")
dim ss as string = dr("编号") & format(date.now ,"yyMMddHHmmssfffff")  & sr(1)
--  作者：qazlinle6
--  发布时间：2022/3/15 11:15:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.rar



为什么有个手机上传图片，是这个格式
--  作者：有点蓝
--  发布时间：2022/3/15 11:31:00
--  
我也不知道为什么
--  作者：qazlinle6
--  发布时间：2022/3/16 17:13:00
--  
好像截屏的都会这样
--  作者：qazlinle6
--  发布时间：2022/3/16 23:31:00
--  
只要是安卓手机，截屏就会命名Screenshot_20220316_232214_com.taobao.taobao.jpg
然后上传图片重命名就会重命名成123456.taobao
--  作者：有点蓝
--  发布时间：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
--  发布时间：2022/3/19 10:30:00
--  
ok 谢谢