求大家帮忙

我有多个文件,如:040731.14,040731.20,文件里的内容格式为:
S0001,00,00,00,00,00,00,T,----,----,----,----,----,----
S1201,00,00,00,00,00,00,T, 198, 198, 196, 188, 192, 204
S1202,00,00,00,00,00,00,T, 198, 198, 198, 192, 189, 202
S1203,00,00,00,00,00,00,T, 199, 198, 196, 192, 194, 200
S1401,00,00,00,01,01,01,T, 189, 191, 193, 191, 191, 194
S1402,00,00,06,10,00,01,T, 195, 194, 191, 190, 191, 195
S1501,00,00,00,14,11,07,T, 191, 191, 191, 188, 187, 189
S1502,00,00,00,00,00,00,T, 196, 196, 196, 195, 194, 203
S1503,00,00,00,00,00,00,T, 194, 196, 193, 194, 189, 196
S1504,00,00,00,00,06,05,T, 199, 199, 195, 199, 194, 200
S1601,00,00,00,13,09,01,T, 188, 186, 186, 184, 184, 189
请问大家如何读取文件名和文件中T前的数据,如:040731 S0001 00 00 00 00 00 00后在新文件夹里生成新的xls文件 --------------------编程问答-------------------- split()可以拆分你想要的内容

补充：VB ,  基础类