从TXT文件中的位置X提取字符串到位置Y.

时间:2012-04-12 09:15:21

标签: vbscript

选择“显示图片”以显示嵌入的图片。显示图片

我有很多txt文件,我需要从中提取数据以插入SQL DB

文件类似于下面的文字:

“描述用户时间字段”

“------------- ------ ---------- -----------”

“XXXX YY01 12:01:01 SAMPLE”

它就像某种列,规则只是每列的位置和长度,由每个列标题描述下面的那些行(-----)确定

我需要从每一行从X位置提取字符串,然后将其写入另一个文件或某处(这并不困难)

我需要一个代码,它将解析该txt中的每一行,并将字符串从位置x返回到位置Y,用于txt中的每一行

我怎么能在vbscript或C ++ /#...或powershell中做到这一点,最后我会做一些自动提取的exe或批处理

任何帮助都会受到赞赏,因为我对编码不是很熟悉

1 个答案:

答案 0 :(得分:0)

这是一个简单的vbscript例程,它使用分隔符来分割

const ForWriting = 2, ForReading = 1
set oFso = CreateObject("Scripting.FileSystemObject")
set oInFile = oFso.OpenTextFile(sFilenameIn, ForReading)
do While oInFile.AtEndOfStream <> True
    sLine = oInFile.readline 'skip the first tow lines or use a condition to check for content
    sLine = oInFile.readline
    sLine = oInFile.readline
    a = split(sLine," ") 'here the delimiter is a space, parse line in array
    field1 = a(1) 'YY01 for the first data line
    field2 = a(2) '12:01:01 for the first data line
    'do something with the data
loop

如果您不能使用分隔符,请使用

之类的内容
field1 = mid(sLine, 6, 4) 'YY01 for the first data line