作者:乔山办公网日期:
返回目录:excel表格制作
直接抄写前台,手的操作用按键袭精灵代替,思路是打百开qq,得到输入框的位置,读度取文本复制知粘贴。
http://zy.anjian.com/?action-model-name-qmdn-itemid-229
http://zy.anjian.com/index.php?action-viewthread-tid-356604
这里有例子,综合一道下就好了
这个功能了解下
Text = Plugin.File.ReadFileEx("C:\1.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
TracePrint "第 " & i + 1 & " 行文本内容度为:" & Cstr(MyArray(i))
Do
key = WaitKey()
If key = 17 Then
SayString MyArray(i)
Exit Do
End If
loop
i = i + 1
Next
End If
启动脚问本后按快捷键Ctrl输出一行内容,需要激活答输入框才能输出内容,激活就是点击回一下答输入框就行了,可以用text文本文档测试一下。
代码如下:
@echo off&setlocal enabledelayedexpansion
rem 变量o存的知是你1.txt的完整路径道
set /p o=1.txt
set /p s=2.txt
set /p ext=保存名称为(包括专拓展名):
set i=F:\ftp下载%ext%
echo 192.168.1.103> ftp.txt
echo 12345>>ftp.txt
echo binary>>ftp.txt
echo get "%o%" "%i%">>ftp.txt
echo bye>>ftp.txt
ftp -s:"ftp.txt" 192.168.1.103
del ftp.txt
以前写的,你测试下。属