如何分离字符串

innercool 2003-10-19 09:54:15

打开多个文件时，返回的是一个长字符串，包括路径文件名，中间用空格隔开，如何得到路径，和每个文件名

...全文

87 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

kmzs 2003-10-19

打赏
举报

方法很多

huxiangming 2003-10-19

打赏
举报

可以直接利用Filter函数。

lxqlogo0 2003-10-19

打赏
举报

Private Sub Command1_Click()
　　Dim I As Integer
　　Dim Y As Integer
　　Dim Z As Integer
　　Dim FileNames$()
　　Const OFN_ALLOWMULTISELECT = &H200&
　　CommonDialog1.filename = ""
　　CommonDialog1.Filter = "All Files|*.*"
　　CommonDialog1.Flags = OFN_ALLOWMUL- SELECT
　　CommonDialog1.Action = 1
　　CommonDialog1.filename = CommonDi g1. filename & Chr(3 2)
　　Z = 1
　　For I = 1 To Len(CommonDialog1.filename)
　　I = InStr(Z, CommonDialog1.filename, Chr(32))
　　If I = 0 Then Exit For
　　ReDim Preserve FileNames(Y)
　　FileNames(Y) = Mid(CommonDialog1.filename, Z, I - Z)
　　Z = I + 1
　　Y = Y + 1
　　Next
　　If Y = 1 Then
　　Text1.Text = FileNames(0)
　　Else
　　Text 2.Text = ""
　　For I = 0 To Y - 1
　　If I = 0 Then
　　Text1.Text = FileNames(I)
　　Else
　　Text2.Text = Text2.Text & UCase(FileNames(I)) & Chr$(13) & Chr$(10)
　　End If
　　Next
　　End If
　　End Sub

innercool 2003-10-19