文件名包含空格怎么处理？ - 编程论坛

#2

吹水佬2022-12-16 14:47

肯定不是“空格”
先要了解清楚，这个文件是怎样产生的? 文件名是不是从哪里复制过来的?

#3

ictest2022-12-16 16:04

以下是引用吹水佬在2022-12-16 14:47:58的发言：

肯定不是“空格”
先要了解清楚，这个文件是怎样产生的? 文件名是不是从哪里复制过来的?

版主大大，这个已经追溯不出来了，也许是用什么软件将PDF文件转换成EXCEL文件形成的，也有可能是某种系统直接生成的Excel文件，没办法了解了。
现在我就想把带问号的文件名去除问号改名，但不成功，我自己的语句是：

程序代码：

If InStr(File1.List(i), "?") > 0 Then
temp = Replace(File1.List(i), "?", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

name语句报错
强制修改，Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\1.xlsx" )也不行

但同样的语句修改带空格文件名可以成功。

程序代码：

If InStr(File1.List(i), " ") > 0 Then
temp = Replace(File1.List(i), " ", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

现在就是想请问，还有没有别的什么办法可以修改？

#4

吹水佬2022-12-16 16:40

回复 3楼 ictest

试用CMD命令copy或ren先换个名，再改成什么名都可以。

#5

mrexcel2022-12-16 23:32

以下是引用ictest在2022-12-16 16:04:41的发言：

版主大大，这个已经追溯不出来了，也许是用什么软件将PDF文件转换成EXCEL文件形成的，也有可能是某种系统直接生成的Excel文件，没办法了解了。
现在我就想把带问号的文件名去除问号改名，但不成功，我自己的语句是：

If InStr(File1.List(i), "?") > 0 Then
temp = Replace(File1.List(i), "?", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

name语句报错
强制修改，Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\1.xlsx" )也不行

但同样的语句修改带空格文件名可以成功。

If InStr(File1.List(i), " ") > 0 Then
temp = Replace(File1.List(i), " ", "_")
End If
Name (File1.Path & "\" & File1.List(i)) As (File1.Path & "\" & temp)

现在就是想请问，还有没有别的什么办法可以修改？

试试替换

chr(63)

#6

风吹过b2022-12-17 13:10

显示？只是给你看的而以，实际上不是？。显示？只是那个字符是不可显示字符而以。

在 CMD 命令行中，使用 DOS 的 DIR 命令列一下文件名看看是什么字符，然后复制内容，再进行改名试试。
windows 直接重命名也应该可以改得了名字。

你代码中，因为 filelist 读到的文件本来就是错误的，所以改名、打开什么都会报错的。
也许是 filelist 是 ANSI 标准，存在无法处理的字符，不知道 VB 的 DIR 命令返回结果是不是 UNICODE 的，可以试一下。
把返回结果直接放到一个 BYTE 数组里，然后通过人工读取数组对应元素的值来判断是是什么字符。

#7

ictest2022-12-17 14:49

我大致估计是Chr(9) , Tab空格。
dos下也无法改名。
只有在windows界面下可以改名。

#8

风吹过b2022-12-19 20:57

猜不出是啥，我在WIN平台下手动改名，凡 32 以内的字符，要么不显示，要么无法确认报错。

win平台直接输入非键盘区字的方法：
按住ALT键，然后在小键盘数字键区输入ASCII码值，放开ALT键结束输入。注意要在英文状态，有输入法时无效。WIN7测试成功，我知道这方法是好像是WIN2000。