FileListbox控件的路径要求比Open严格

VBProFan

原标题：又发现IDE和编译后的一个区别，路径双斜杠是否错误

原内容：

FileListbox控件的属性

File1.Path = “xxx”

如果含有 \\，在 IDE 没事，编译后就报错。

FileListbox控件的路径不允许双反斜杠（右斜杠）或单斜杠（左斜杠），Open就可以。前者是严格的 Windows 路径语法，后者为了容错，估计内部实现中首先对路径字符串做了预处理。

h907308901

好像只是FileListBox有这个问题，Open就不报错

VBProFan

灵异，我昨晚试的时候 IDE 明明是可以通过的，今晚试又报错了，同一个程序……

VBProFan

我知道了，是我原来眼花了，我写了个程序来适应IDE和编译两种情况，使他们可以共用同样的资源文件：
gsAppPath = App.Path & IIf(App.LogMode = 0, "\Release", "\")
但后面写了
gsAppPath & "\Data\" & msCurClass
所以 IDE 下正常，编译后就有 \\Data 所以报错了。不过之前我知道 Open 里多少个 \ 都没事，FileListBox 的错误确实让我吃了一惊。也算是一个发现吧，改标题去

VBProFan

acme_pjz  Open当然不报错，你写成Open "C:\/\\\\/\/\/\\/\/\/\//\/\/Windows\/\/\\\//\/\/\\\/\/\/\/\/\/System32\\\\/\/\/\\/\/\/\/\/////\/\/\/..."都没问题

首先 sInputPath = Replace(sInputPath, "/", "\")
然后用 DFA 合并一下多个“\”为一个。

19900603

不管是在IDE还是编译后我 都是直接
gsAppPath = App.Path & "\"
只要工程保存了。AppPath 就是 工程的路径

VBProFan

19900603 发表于 2012-1-16 11:26
不管是在IDE还是编译后我 都是直接
gsAppPath = App.Path & "\"
只要工程保存了。AppPath 就是 工程的路 ...

我是为了方便发布软件，exe 放在工程下的一个目录中，所以调试和实际运行时的路径是不同的。

阳光宝宝

用 DFA 合并一下多个“\”为一个是什么意思，我不懂

我原来是用while wend 循环查找替换的，难到还有更简单的办法？

阳光宝宝

能给个示例吗？
比如有字串a="143 344     343   676 789         983"
替换成：b="143 344 343 676 789 983"

VBProFan

随手写了一下，几个简单的测试，没发现问题。

1. Option Explicit
   
2. 
   
3. Private Enum emState
   
4.   c_Init
   
5.   c_Slash
   
6.   c_NonSlash
   
7. End Enum
   
8. 
   
9. Private Function TransStr(s As String) As String
   
10.   Dim t As String
    
11.   Dim i As Byte
    
12.   Dim Ch As String
    
13.   Dim st As emState
    
14.   
    
15.   st = c_Init
    
16.   t = ""
    
17.   
    
18.   For i = 1 To Len(s)
    
19.     Ch = Mid(s, i, 1)
    
20.     Select Case st
    
21.       Case c_Init
    
22.         If Ch = "" Then
    
23.           st = c_Slash
    
24.         Else
    
25.           st = c_NonSlash
    
26.         End If
    
27.         t = t & Ch
    
28.       Case c_Slash
    
29.         If Ch <> "" Then
    
30.           st = c_NonSlash
    
31.           t = t & Ch
    
32.         End If
    
33.       Case c_NonSlash
    
34.         If Ch = "" Then
    
35.           st = c_Slash
    
36.         End If
    
37.         t = t & Ch
    
38.     End Select
    
39.   Next i
    
40.   
    
41.   TransStr = t
    
42. End Function
    
43. 
    
44. Private Sub Form_Load()
    
45.   Debug.Print TransStr("C:\abc\\\def\\ghijk\lmn\\\\opq\rs\\\\")
    
46.   Unload Me
    
47. End Sub
    

复制代码

输出：

C:\abc\def\ghijk\lmn\opq\rs\