- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 文件命名规则 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58624)
-- 发布时间：2014/10/21 9:38:00
-- 文件命名规则
一款产品有多张图片，请问上传的图片怎么根据产品名称命名？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.rar |
例如：
第一张：产品名.JPG
第二张：产品名-1.JPG
第三张：产品名-2.JPG
……
上传的时候不需要提示，系统自动重命名
[此贴子已经被作者于2014-10-21 9:40:08编辑过]
-- 发布时间：2014/10/21 9:55:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目19.table |
-- 发布时间：2014/10/21 9:56:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称") Then
MessageBox.Show("请先输入身份证号码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Dim ss As String = e.filename
Dim Index As Integer = ss.LastIndexOf(".")
Dim hz As String = ss.SubString(Index,ss.length-Index)
ss = dr("产品名称")
e.filename = ss & hz
If e.DataRow(e.DataCol.name).Contains(ss) Then
Dim max As Integer = 0
For Each s As String In e.DataRow.Lines(e.DataCol.name)
If s Like "*" & ss & "*" Then
Dim fni1 As Integer=s.LastIndexOf("-")
If fni1 > -1 Then
Dim fni2 As Integer = s.LastIndexOf(".")
fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
If fni1 > max Then
max = fni1
End If
End If
End If
Next
e.filename = ss & "-" & (max+1) & hz
End If
End If
-- 发布时间：2014/10/21 10:04:00
--
谢谢BIN