Question

希望你能快速得到一个......

我有一个这种格式的文件名列表：

ABCD_03105_221385_2015-02-20_03105.pdf
ABCD_03105_552589_2015-02-20_03105.pdf

我需要为所有这些文件名制作一个CSV，字段用下划线分隔，“。pdf”掉落......所以它在文件中看起来像这样：

ABCD，03105,221385,2015-02-20,03105
ABCD，03105,552589,2015-02-20,03105

非常感谢帮助!!感谢

到目前为止我所有的都是一个列出文件名的脚本。我不知道该怎么办才能让它们被下划线分开。

On Error Resume Next
  Dim fso, folder, files, NewsFile,sFolder

  Set fso = CreateObject("Scripting.FileSystemObject")
  sFolder = Wscript.Arguments.Item(0)
  If sFolder = "" Then
      Wscript.Echo "No Folder parameter was passed"
      Wscript.Quit
  End If
  Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
  Set folder = fso.GetFolder(sFolder)
  Set files = folder.Files

  For each folderIdx In files
    NewFile.WriteLine(folderIdx.Name)
  Next
  NewFile.Close

Answer 1

尝试替换＆＃34; _＆＃34;用＆＃34;，＆＃34;和＆＃34; .pdf＆＃34;用＆＃34;＆＃34;。如果您发现错误，请在此处发布...

oldFile = "ABCD_03105_221385_2015-02-20_03105.pdf"
oldFile = lcase(oldFile)
newFile = replace(oldFile, "_", ",")
newFile = replace(newFile, ".pdf", "")
newFile = ucase(newFile)

现在，newFile必须是＆＃34; ABCD，03105,221385,2015-02-20,03105＆＃34;

Answer 2

你需要嵌套替换电话：

>> s = "ABCD_03105_221385_2015-02-20_03105.pdf"
>> t = Replace(Replace(s, "_", ","), ".pdf", "")
>> WScript.Echo s
>> WScript.Echo t
>>
ABCD_03105_221385_2015-02-20_03105.pdf
ABCD,03105,221385,2015-02-20,03105

vb脚本解析文件名并生成csv

2 个答案: