楼 主
[原创]********滚动文本浏览********
发表于 2007-09-27 12:57 · 中国 北京 电信
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
@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 ]
第 2 楼
发表于 2007-09-27 13:18 · 中国 河北 廊坊 三河市 移动
金牌会员
★★★★
积分 2,725
发帖 1,160
注册 2006-09-23 12:00
19年会员
UID 63486
来自 河北廊坊
状态 离线
提点小建议，set f=%1.hta改成set f="%~n1.hta"
加上引号以防止文件名有空格，用%~n1取不带扩展名的文件名。
三人行，必有吾师焉。 学然后知不足，教然后知困，然后能自强也。
第 3 楼
发表于 2007-12-19 23:30 · 中国 北京 电信
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
但改后用托拽方式使用P处理时，hta文件创建到了%USERPROFILE%文件夹。
论坛跳转:
