您好,脚本专家!如何确定在 HTA 中选择了哪些文本?
-- DO
答:
您好,DO。您知道,大多数人认为每天编写“您好,脚本专家!”专栏是世界上最吸引人、最令人兴奋的工作之一。如果编写此专栏的脚本专家不这么懒惰的话,也许是这样。比如说,很多时候他选择自己认为可以编成脚本的问题。通常他手头没有能完成问题中提到的任务的脚本,但他知道可以编写这样一个脚本。这是行之有效的方法,但不是特别令人兴奋的方法。
不过,这个问题有点不太一样。您如何能确定在 HTA 中选择了哪些文本?哎呀,我们也拿不准您是否能确定在 HTA 中选择了哪些文本。但是,事实证明您能够确定:
<html>
<head>
<title>HTA Test</title>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub ShowSelection
Set objSelection = Document.Selection.CreateRange()
Msgbox objSelection.text
End Sub
</SCRIPT>
<body>
<textarea name="ScriptArea" rows=5 cols=40></textarea><p>
<input id=runbutton type="button" value="Show Selection" onClick="ShowSelection">
</body>
我们在这里使用的是一个小而简单的 HTA,其外观如下:
什么?您怎么能没有印象呢?那么,试一试吧。在该文本区域键入一些文本,然后突出显示该文本的一部分:
现在单击标签为 Show Selection(显示选择)的按钮。非常幸运的是,您将看到一个消息框,告诉您哪些文本已被选中:
您说对了:看上去就是这个样子了。
那么,这一切都是如何做到的呢?我们首先创建一个含有一个文本区域和一个按钮的 HTA。我们不讨论创建 HTA 本身的细节,如果您需要一些背景信息,请查看 HTA Developers Center(英文)或 Scripting Week 3 webcast on HTAs(英文)。今天我们只重点讨论您单击此按钮时运行的子例程:
Sub ShowSelection
Set objSelection = Document.Selection.CreateRange()
Msgbox objSelection.Text
End Sub
没错:只有两行代码。首先我们创建一个新的 TextRange 对象;这一过程可通过调用 CreateRange() 方法来实现,此方法恰好是 Document.Selection 对象的一部分:
Set objSelection = Document.Selection.CreateRange()
事实证明,TextRange 对象的属性之一就是 Text 属性。顾名思义,该属性返回的文本正好是在此特定 TextRange 中找到的文本。要返回当前在 HTA 中选定的文本,我们必须要做的就是显示 Text 属性的值:
Msgbox objSelection.Text
顺便说一下,所选文本并不限于文本框或文本区域中的文本。选择此 HTA 内的任意文本,看看会发生什么:
<html>
<head>
<title>HTA Test</title>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub ShowSelection
Set objSelection = Document.Selection.CreateRange()
Msgbox objSelection.text
End Sub
</SCRIPT>
<body>
<p> Here is some text in an HTA. Select any portion of the text and then
click the Show Selection button.</p>
<input id=runbutton type="button" value="Show Selection" onClick="ShowSelection">
</body>
很酷吧?您知道,也许这真是世界上最吸引人、最令人兴奋的工作。
好了…。
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]