Question

我试图获取文件夹中现有x个文本文件中的数字总和。到目前为止，我已经阅读了2个文本文件，但它们不会求和，脚本添加结果中的数字 1,1 + 1,2 = 1,11,2而不是2,3就像我想要它，我明白有一些整数和错配。但我找到的唯一代码是没有textfiles作为变量。一旦我需要阅读textilfes我就会卡住。请指教。

Option Explicit
Dim objFSO
Dim objFile1
Dim arrData1
Dim objFile2
Dim arrData2
Dim objFile3
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.OpenTextFile("..\testfolder\1.txt")
arrData1 = (objFile1.ReadLine)
objFile1.Close

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO.OpenTextFile("..\testfolder\2.txt")
arrData2 = (objFile2.ReadLine)
objFile2.Close

Set objFile3 = objFSO.CreateTextFile("..\testfolder\sum.txt")
objFile3.WriteLine arrData1 + arrData2
objFile3.Close

Answer 1

从文件中读取会给你字符串;要在计算中使用数字字符串，必须将它们转换为数字：

>> s1 = "47"
>> s2 = "11"
>> WScript.Echo s1 + s2
>> WScript.Echo CLng(s1) + CLng(s2)
>>
4711
58

（您应该制定策略以使用多个文件。）

Vbscript文件夹中所有文本文件中的数字摘要

1 个答案: