按键精灵 编写问题 100分求助~!!

来源：百度知道 编辑：UC知道 时间：2024/07/01 08:15:00
灵怎样让它识别一个文档里面的英文字母(大写),并通过键盘录入的方式,让它自动录入到另一个文本文档里面
比如文档1有"ABCD DCSA"2排字母,怎么让它识别这2排字母并通过键盘录入方式到文档2里面(注意:不是全选复制 粘贴!)
求高手解答,如能成功,必当以分相许~

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile("c:\s.txt",1, True)
While tf.AtEndOfStream <> True
str = tf.Read(1)
If Asc(str)>64
If Asc(str)<91
MessageBox str
EndIf
EndIf
EndWhile