标题: [原创]********滚动文本浏览******** [打印本页]
作者: s11ss 时间: 2007-9-27 12:57 标题: [原创]********滚动文本浏览********
@echo off
::::::::Scrolling Text Viewer {s11ss 2007-9-27}::::::::
set f=%1.hta
> %f% echo ^<TITLE^>%comspec% - %1^</TITLE^>
>>%f% < "%~f0" more +8
>>%f% type %1
start "" %f%
goto :eof
<HTA:APPLICATION ICON="%comspec%"/>
<BODY bgcolor=black text=white onload='window.resizeTo(670, 435)'>
<marquee direction=up scrollamount=1 height=400>
<pre>
[ Last edited by s11ss on 2007-9-27 at 01:04 PM ]::::::::Scrolling Text Viewer {s11ss 2007-9-27}::::::::
set f=%1.hta
> %f% echo ^<TITLE^>%comspec% - %1^</TITLE^>
>>%f% < "%~f0" more +8
>>%f% type %1
start "" %f%
goto :eof
<HTA:APPLICATION ICON="%comspec%"/>
<BODY bgcolor=black text=white onload='window.resizeTo(670, 435)'>
<marquee direction=up scrollamount=1 height=400>
<pre>
作者: ccwan 时间: 2007-9-27 13:18
提点小建议，set f=%1.hta改成set f="%~n1.hta"
加上引号以防止文件名有空格，用%~n1取不带扩展名的文件名。
作者: s11ss 时间: 2007-12-19 23:30
但改后用托拽方式使用P处理时，hta文件创建到了%USERPROFILE%文件夹。