用VBscript解决的一个小问题

请在VBScript中尝试以下操作： 您得到了一个包含多个货币金额的文本文件，每一个都在一行中，格式如下：

DESCRIPTION Date Amount

McDonalds 2011-01-01 20.00
Clothing Store 2011-01-02 30.00

尝试构建一个程序来读取该文本文件并对其中找到的所有值求和。

第一次（步行）尝试：

输出：

lineLoop - sum values (line loop)
---------------------------------------------------
"DESCRIPTION","Date","Amount"
"McDonalds",2011-01-01,20.00
"Clothing Store",2011-01-02,30.00
"paying programmer",2011-07-09,47.11

---------
Sum: 97.11
===================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,01563 secs ]

McDonalds       01.01.2011      20
Clothing Store  02.01.2011      30
paying programmer       09.07.2011      47,11

97,11

47,11

===================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,23438 secs ]

第二次尝试（使用正则表达式）：

第三次尝试（ADO/文本驱动程序）：

schema.ini：

[expenses.csv]
Format=CSVDelimited
ColNameHeader=True
DateTimeFormat=YYYY-MM-DD
CharacterSet=ANSI
Col1=DESCRIPTION CHAR
Col2=Date DATE
Col3=Amount FLOAT

代码：

输出：

lineLoop - sum values (line loop)
---------------------------------------------------
"DESCRIPTION","Date","Amount"
"McDonalds",2011-01-01,20.00
"Clothing Store",2011-01-02,30.00
"paying programmer",2011-07-09,47.11

---------
Sum: 97.11
===================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,01563 secs ]

McDonalds       01.01.2011      20
Clothing Store  02.01.2011      30
paying programmer       09.07.2011      47,11

97,11

47,11

===================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,23438 secs ]

或者-需要一些额外的工作：

useAdoText - sum values (ADO/Text driver)
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT * FROM [expenses.csv]
----------------------------------------------------------------------------
|DESCRIPTION      |Date      |Amount|
|McDonalds        |01.01.2011|    20|
|Clothing Store   |02.01.2011|    30|
|paying programmer|09.07.2011| 47,11|
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT SUM(Amount) AS [Sum] FROM [expenses.csv]
----------------------------------------------------------------------------
|Sum  |
|97,11|
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT SUM(Amount) AS [Sum] FROM [expenses.csv] WHERE MONTH([Date]) = 7
----------------------------------------------------------------------------
|Sum  |
|47,11|
----------------------------------------------------------------------------
============================================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,25000 secs ]

useAdoText - sum values (ADO/Text driver)
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT * FROM [expenses.csv]
----------------------------------------------------------------------------
|DESCRIPTION      |Date      |Amount|
|McDonalds        |01.01.2011|    20|
|Clothing Store   |02.01.2011|    30|
|paying programmer|09.07.2011| 47,11|
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT SUM(Amount) AS [Sum] FROM [expenses.csv]
----------------------------------------------------------------------------
|Sum  |
|97,11|
----------------------------------------------------------------------------
----------------------------------------------------------------------------
SELECT SUM(Amount) AS [Sum] FROM [expenses.csv] WHERE MONTH([Date]) = 7
----------------------------------------------------------------------------
|Sum  |
|47,11|
----------------------------------------------------------------------------
============================================================================
xpl.vbs: Erfolgreich beendet. (0) [ 0,25000 secs ]