Board logo

标题: 如何随机读取TXT文档中的某行 并复制到剪贴板中.. [打印本页]

作者: hntigger     时间: 2010-1-10 05:49    标题: 如何随机读取TXT文档中的某行 并复制到剪贴板中..

如何随机读取TXT中的某行 显示出来 并复制到剪贴板中..

找到随机随机读取部分

@echo off
cd /d "."
:1
cls
for /f "delims=: tokens=2" %%a in ('find /c /v "" 1.txt') do set n=%%a
set /a m=%random% %% n
if %m%==0 (set skip=) else set skip=skip=%m%
for /f "%skip% delims=" %%a in (1.txt) do set "str=%%a" & goto end
:end
echo %str%
Pause
goto 1

改成读取后复制到剪贴板中 谢谢了..
主要是不知道如何将 %str% 的获取的值弄到剪贴板中....
1.txt 内容

4455667788aa
7788990011
35545854851548
abcdefghijklm
1122665578789541
作者: clamber     时间: 2010-1-10 11:40
把%str%弄到剪贴板中的方法:
mshta vbscript:window.clipboarddata.setdata("Text","%str%")(window.close)

作者: hntigger     时间: 2010-1-11 00:48
谢谢了..去试试..嘿嘿....