用vbs将名称截断以使其最多包含 16 个字符的代码_vbs

问:
您好,脚本专家!如何将名称截断以使其最多包含 16 个字符?
-- BN
答:
您好,BN。打起精神来:我们又要开始记忆长廊之旅了。曾经有个脚本专家上大学的时候,他在绿巨人公司找了一份暑期临时工,任务就是在办公室里监督华盛顿东部的芦笋收割。当时,绿巨人有一个陈旧笨重的计算机系统,用来记录芦笋的数量 - 然后再记录要付给所有收割者多少钱。这个系统有一个问题,但是(事实上,它的问题不只一个,不过 …):它被设置为姓氏最多可使用 10 个字符,而许多工人的姓都比 10 个字符要长(例如,Myer-Ackerman)。每次数据输入人员输入一个比 10 个字符长的名称时,整个系统都会锁死,因此他们的工作站常常必须重新启动。(这都是在出现 Microsoft Windows 之前的事了。)
这个脚本专家那时根本谈不上是脚本专家;事实上,他使用计算机的经验主要局限于在 Commodore 64 上玩 Zork。可是现在,作为办公室里唯一的大学生,他被委任以修复此数据输入程序的重任(幸运的是,数据库本身没有这种限制)。他的工作就是在程序试图将名称保存到数据库之前,确保截断所有多于 10 个字符的名称。
换句话说,这与您需要完成的任务非常相似。那时我们的脚本专家工作在 BASIC 的某个专有分支领域,他的解决方案就是使用 Left 函数获取某个名称的前 10 个字母,并以此来作为此工人的姓。现在,差不多 20 年之后,想想您的问题的解决方案是什么?

复制代码 代码如下:

strName = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
strName = Left(strName, 16) 
Wscript.Echo strName 

经典的解决方案从来不会过时,是吧?这个脚本从我们 20 年前停手的地方开始:它将一个很长的字符串(本例中为字母表)赋值给名为 strName 的变量:
strName = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
接下来是下面这行代码:
strName = Left(strName, 16)
这行代码将一个新值赋给变量 strName。那么这个新值是什么呢?它将是 strName 当前值的前 16 个字符。这就是 Left 函数的作用:它从此字符串的第一个字符开始计数,一直数到 16 个字符,就像这样:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
这 16 个字符,且仅这 16 个字符,将赋给变量 strName。然后,回显 strName 的新值,我们会得到如下字符串:
ABCDEFGHIJKLMNOP
很酷吧。此脚本很有效,即使 strName 是从 2600 个字符的 26 个字符开始效果也一样:结果都是仅使用前 16 个字符。啊,但是如果字符串少于 16 个字符会怎么样?例如,此脚本会失败吗,因为它试图获取 16 个字符,而根本没有 16 个字符?
strName = "ABCD"
strName = Left(strName, 16)
Wscript.Echo strName
幸运的是答案是否定的:此脚本会顺利运行。如果某字符串少于 16 个字符,则 Left 函数只获取它所能找到的所有字符,并将此值赋值给 strName。在本例中,strName 等于 ABCD,此字符串中仅有的 4 个字符。
现在,再缅怀一下过去的美好时光。我们告诉过您当这个脚本专家正坐在他的绿巨人办公室里时,一条响尾蛇爬进来吗?这是真的。他正坐在那儿,努力思考将姓限制为 10 个字符的方法,正在这时 -- 天哪;今天的时间到了。我们必须改天再继续讲这个故事了。

时间: 2024-10-03 06:40:14

用vbs将名称截断以使其最多包含 16 个字符的代码_vbs的相关文章

vbs 调用中文语音让你电脑听你的命令的实现代码_vbs

如果你机器本身装了office的话,可能不需要装以下软件,我机器由于装的是openoffice,所以我提前装了 speechsdk51.exe CNSpeechPackage.msi 这两个软件.如果让电脑朗读,参考下面的代码 复制代码 代码如下: ReadAllTextFile=CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 1).ReadAll Function RegExp

用vbs产生的若干个随机数并写入到一个.txt中的代码_vbs

复制代码 代码如下: Set a=WScript.CreateObject("WScript.Shell") a.Run "notepad" '打开记事本 do Randomize x= Int((40 * Rnd) + 1) '产生一个1~40的随机数赋给X WScript.Sleep 1000 a.SendKeys x&"," '模拟键盘,输出x n=n+1 '累计器 if n=10 then wscript.quit '若累计器N为

用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码_vbs

On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell") With WScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" .RegDelete&quo

vbs中将GB2312转Unicode的代码_vbs

今天写了一个类似于下面的程序: 复制代码 代码如下: Dim http Set http = CreateObject("msxml2.xmlhttp") http.open "GET","http://www.sina.com.cn/",False http.send WScript.Echo http.responseText 但是却发现返回的中文都是乱码,看了一下发现新浪的编码竟然是gb2312的,汗,现在都是utf-8编码的时代了.res

c语言-C语言里想要用函数创建一个新的字符数组,并使其等于原有的一个字符数组该怎么做?

问题描述 C语言里想要用函数创建一个新的字符数组,并使其等于原有的一个字符数组该怎么做? #include #include #include char map[4][4]; char creat()//创建一个新的字符数组 { char *maze=(char)malloc(sizeof(map)); return maze; } void main() { int i,j; for(i=0;i<4;i++) { gets(map[i]); } char *maze=creat(); strc

使用VBS访问外部文本文件一些方法和脚本实例代码_vbs

处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明.常用于处理文本文件的方法有:Read(var)-读var个字符,ReadLine-读一行,ReadAll-读整个文件内容,SkipLine-跳过本行指向下一行,Write(var)-把字符串var写入文件,WriteLine(var)-把字符串var和换行符写入文件,WriteBlankLines(n)-写入n个换行

VBS调用Windows API函数的代码_vbs

那天无意中搜索到一篇<WinCC VBS利用EXCEL调用Windows API函数>的文章,不知道WinCC是什么,Google了一下好像跟西门子自动化有关.WinCC是什么并不重要,重要的是这篇文章提供了VBS调用Windows API的一种思路--EXCEL VBA,一种传说比VB还要VB的语言. 但是那篇文章中的例子都是使用已经写好的EXCEL VBA程序,即首先得存在一个EXCEL文件.我就想,能不能在VBS中通过excel.application对象创建一个包含VBA代码的EXCE

用vbs将名称转换为正确的大小写的代码_vbs

问: 您好,脚本专家!我有一个脚本,我的帮助支持人员用它来创建用户帐户.不幸的是,有时这些帮助支持人员在忙乱中会键入类似这样的名称:kEn MYEr.如何将名称转换为正确的大小写(即 Ken Myer)呢? -- LC 答: 您好,LC.您知道吗:您真幸运.谈到正确行事,脚本专家通常便是您最不愿意找的人.事实上,就我们所知,只有一种情况例外,那便是将名称转换为正确的大小写,即,使名称中的首字母大写,而使其余字母小写.这一点我们还是可以办到的. 注意:嘿,每个人都得能够做点什么.尽管我们更希望能投

通过vbs修改目录名称与快捷方式名称的实现代码_vbs

复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") OldFolderName1="263 Enterprise Messenger"newFolderName1="Peacemap Messenger"OldFileName1 = "263 Enterprise Messenger.lnk"newFileName1 = "Pea