使用vbscript的字符串操作函数处理文本

最新推荐文章于 2022-12-31 22:19:24 发布
最新推荐文章于 2022-12-31 22:19:24 发布
阅读量326 收藏
点赞数
文章标签： VBScript HTML Apple 正则表达式 ASP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/mlxia/article/details/83290055
版权

使用vbscript的字符串操作函数处理文本
 
作者：未知    文章来源：未知    点击数：255    更新时间：2007-8-16
 

我们可以使用vbscript或者asp支持的其他脚本在服务器端对获取的信息进行整理。这些函数都是很常见的，现在把它们拿出来，好像也没有什么用。 

1、instr函数

Instr()

　　FUNCTION: 返回字符或字符串在另一个字符串中第一次出现的位置.

　　SYNTAX: Instr([start, > strToBeSearched, strSearchFor [, compare>)

　　ARGUMENTS: Start为搜索的起始值，strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符compare 比较方式（详细见ASP常数）

　　EXAMPLE:

    <%

　　strText = "This is a test!!"

　　pos = Instr(strText, "a")

　　response.write pos

　　%>

　　RESULT: 9

2、instrrev函数

InstrRev()

　　FUNCTION: 同上，只是从字符串的最后一个搜索起

　　SYNTAX: InstrRev([start, > strToBeSearched, strSearchFor [, compare>)

　　ARGUMENTS: 同上.

　　EXAMPLE:

    <%

　　strText = "This is a test!!"

　　pos = InstrRev(strText, "s")

　　response.write pos

　　%>

　　RESULT: 13

3、mid函数

Mid()

　　FUNCTION: 返回特定长度的字符串(从start开始,长度为length).

　　SYNTAX: Mid(string, start [, length>)

　　ARGUMENTS:

　　EXAMPLE:

    <%

　　strTest = "This is a test! Today is Monday."

　　response.write Mid(strTest, 17, 5)

　　%>

　　RESULT: Today 4、replace

Replace()

　　FUNCTION: Returns a string in which a specified sub- string has been replaced with another substring a specified number of times.

　　SYNTAX: Replace(strToBeSearched, strSearchFor, strReplaceWith [, start [, count [, compare>>>)

　　ARGUMENTS: strToBeSearched is a string expression containing a sub-string to be replaced; strSearchFor is the string expression to search for within strToBeSearched; strReplaceWith is the string expression to replace sub-string strSearchFor; start (optional) is the numeric character position to begin search; count (optional) is a value indicating the comparision constant.

　　EXAMPLE:

    <%

　　strTest = "This is an apple!"

　　response.write Replace(strTest, "apple", "orange")

　　%>

　　RESULT: This is an orange!

以上的四个函数是在远程获取中用的最多的，比起正则表达式，虽然功能上不足，但是使用他们显得更加简易。

另外一些可能用到的

trim()

　　FUNCTION: 去掉字符串两边的空格.

　　SYNTAX: Rtrim(string)

　　ARGUMENTS:

　　EXAMPLE:

    <%

　　strTest = "  This is a test!! "

　　response.write RTrim(strTest)

　　%>

　　RESULT: This is a test!!

还有ltrim和rtrim，分别是去掉字符串左边和右边的空格。StrReverse()

　　FUNCTION: 反排一字符串

　　SYNTAX: StrReverse(string)

　　ARGUMENTS:

　　EXAMPLE:

    <%

　　strTest = "This is a test!!"

　　response.write StrReverse(strTest)

　　%>

　　RESULT: !!tset a si sihT

 

例子是落伍者论坛 mofei的文章。

 <html> 

<head>

<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>

<meta name='generator' content='默飞冲天'>

<meta name='keywords' content='默飞冲天'>

<style type=text/css>body {font-family:  Arial; font-size:  12px;color: #000000;}td {font-family:  Arial; font-size:  12px;line-height:20px;}a:link,a:visited{text-decoration: none; color:  #000000}a:hover {  color:  #ff0000; text-decoration: underline}</style>

<title>天气预报 - 默飞冲天</title>

</head>

<body>

<%

'制作：默飞

'QQ:33224360

'http://mofei.xinxiu.com

'天气预报最新适用采集程序

'声明取得目标信息的函数,通过XML组件进行实现。

Function GetURL(url)

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, False

.Send

GetURL = bytes2bstr(.responsebody)

'对取得信息进行验证，如果信息长度小于100则说明截取失败

if len(.responsebody)<100 then

response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"

response.end

end if

End With

Set Retrieval = Nothing

End Function

' 二进制转字符串，否则会出现乱码的！

function bytes2bstr(vin)

strreturn = ""

for i = 1 to lenb(vin)

thischarcode = ascb(midb(vin,i,1))

if thischarcode < &h80 then

strreturn = strreturn & chr(thischarcode)

else

nextcharcode = ascb(midb(vin,i+1,1))

strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))

i = i + 1

end if

next

bytes2bstr = strreturn

end function

'声明截取的格式，从Start开始截取，到Last为结束

Function GetKey(HTML,Start,Last)

filearray=split(HTML,Start)

filearray2=split(filearray(1),Last)

GetKey=filearray2(0)

End Function

Dim Softid,Url,Html,Title

'把下面的[将乐]改成你的城市，就是你城市的天气预报了，可到www.tq121.com.cn里查一下，有没收录你的城市,一般到县级的都有。

Url="http://weather.tq121.com.cn/detail.php?city=将乐"

Html = GetURL(Url)

'搜索要偷取的内容的开始位置

Str_start = instr(Html, "预报发布时间")

Str_start = instr(Str_start, Html, "<table width=""979"" height=""185"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")

'搜索要偷取的内容的结束位置

Str_end = instr(Str_start, Html, "<table width=""979"" height=""105"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")

'截取内容

Html = Mid(Html, Str_start, Str_end - Str_start)

'调整表格

Html=replace(replace(Html,"width=""979""","width=100%"),"height=""185""","") '大表格

Html=replace(replace(Html,"width=""133""","width=95%"),"height=""183""","") '背景大小

Html=replace(replace(Html,"width=""973""",""),"height=""183""","")

Html=replace(replace(Html,"width=""113""","width=100%"),"height=""35""","") '日期表格

Html=replace(replace(Html,"width=""57""",""),"width=""56""","") '图片表格

Html=replace(replace(Html,"width=""50""",""),"height=""46""","")

Html=replace(replace(Html,"height=""57""",""),"height=""73""","")

Html=replace(Html,"width=""141""","width=14%") '表格分配

Html=replace(Html,"width=""140""","width=14%")

Html=replace(Html,"width=""139""","width=14%")

Html=replace(Html,"width=""133""","width=16%")

Html=replace(Html,"width=""125""","width=100%")

Html=replace(Html,"width=""107""","width=100%")

Html=replace(replace(Html,"../images/","images/"),"./images/","images/") '图片路径

response.write Html

'Response.Write"采集完毕!"

%>

</body>

</html>

mlxia
关注
vbs教程《字符串处理》
小黑的博客主页
12-29 8877
rem 拆分字符串 rem dim arr rem arr = split("xiaohei,xiaobai,xiaoming", ",") rem for each substr in arr rem msgbox(substr) rem next rem 替换字符串 rem msgbox(replace("xiaohei,xiaobai,xiaoming", ",", "|")) rem
VBScript关键字及循环
imfancihhahha的博客
05-11 405
VBScript 关键字 关键字 描述 Empty 用于指示一个未初始化的变量值。当第一次创建变量时或变量值显式设置为空时，变量值未初始化且变量为被赋值。 实例： Dim x '变量 x 未初始化！ x="ff" '变量 x 不再是未初始化 x=Empty '变量 x 未初始化！ 注意：这和 Null 不一样！！ IsEmpty 用于测试一个变量是否未初始化。 实例：If (IsEmpty(x)) '变量 x ..
VBS中常见字符串操作函数
08-26
主要介绍了VBS中常见字符串操作函数,需要的朋友可以参考下
java数组输出到文件_java基础-输出流-将字符串数组输出至文本文件
weixin_33313117的博客
02-12 992
参考：http://www.cnblogs.com/plant/p/4637123.htmlhttps://zhidao.baidu.com/question/32741401.html内容：import java.io.FileInputStream;import java.io.FileOutputStream;/*** @author czchina**/public class TestS...
VBScript的字符串方法
weixin_34085658的博客
04-06 506
方法描述传参示例结果 Asc(string)返回第一个字符的ASCII码，相当于JS的String.charCodeAt"Alpha"65 ...
vbscript Split函数用法详解(字符串转数组函数)
09-04
VBSplit函数是Visual Basic Script (VBS)中用于将字符...总的来说，VBSplit函数是处理字符串时不可或缺的工具，能够帮助开发者有效地解析和操作文本数据。通过理解其工作原理和用法，可以编写出更灵活和高效的VBS脚本。
VBS的字符串及日期操作相关函数
09-05
这些函数在处理和操作数据时提供了很大的灵活性，对于开发asp程序或者任何涉及到字符串和日期处理的VBScript项目来说，都是必不可少的工具。了解并熟练掌握这些函数的用法，能够帮助开发者更高效地完成编程任务。
计算一个字符串在另一字符串中出现的次数函数
09-06
例如，在文本搜索中，我们可以使用本函数来计算指定字符串在文本中的出现次数。在字符串匹配中，我们可以使用本函数来计算两个字符串的相似度。在数据分析中，我们可以使用本函数来分析文本数据的分布情况。 我们...
asp CutStrX字符串截取函数(过滤全部HTML标记)
10-28
不过需要注意的是，任何字符串操作函数，包括CutStrX，在使用时都应该考虑到字符编码的问题，确保不会因为编码不一致导致过滤错误或数据丢失。 总结来说，ASP CutStrX字符串截取函数是一个实用的自定义函数，它不仅...
字符串处理的魔法：aardio的文本操作艺术
最新发布
06-24
aardio是一种动态语言，同时也是混合语言，支持静态类型操作，能够直接调用C语言、C++等静态语言的API接口函数。它支持多种API调用约定，例如stdcall、cdecl、thiscall、fastcall、regparm(n)等。aardio具有独特的...
VBscript常用函数——字符串函数
chongtianfeiyu
10-09 2586
len(str)：计算字符串长度 中文字符长度也计为一！ mid(str),起始字符,[读取长度])：截取字符串中间子字符 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去
VBScript (vbs) 脚本实例
weixin_44759598的博客
12-31 8989
本文将会给大家带来，VBScript简介及代码实例。VBScript 作为一种工具，可以有多种使用方法，可以用于多种不同的应用程序。VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。它的解释器是Windows脚本宿主，简称VBScript ，后缀名为 .vbs。
Excel-VBA 快速上手（十一、字符串常用操作）
热门推荐
Ares5k
07-26 1万+
vba、字符串常用操作
vbs字符串处理
flynetcn的专栏
01-08 8711
*************************************************函数名：gotTopic作  用：截字符串，汉字一个算两个字符，英文算一个字符参  数：str   ----原字符串       strlen ----截取长度返回值：截取后的字符串*************************************************func
VBS 字符串操作
allenguo123的专栏
10-11 5442
1. Split(expression, delimiter, count, compare) 返回基于 0 的一维数组，其中包含指定数目的子字符串。 expression：必选。字符串表达式，包含子字符串和分隔符。如果 expression 为零长度字符串，Split 返回空数组，即不包含元素和数据的数组。 delimiter：可选。用于标识子字符串界限的字符。如果省略，使用空格 (" "
(原创)vbscript 字符串处理函数
weixin_30455023的博客
09-26 339
'************************************************** '截取指定长度的字符串(两个字母计成一个字符) 'str - 原始字符串, 'lennum - 截取长度, 'chopedString - 省略后面跟的字符串 '************************************************** Funct...
VBScript字符串函数解析与脚本基础
"这篇资源主要介绍了VBScript字符串处理函数及其在网页开发中的应用。通过示例展示了`Left`, `Right`, `Len`, `Trim`, `Split` 和 `Instr` 函数的用法，并概述了VBScript的基本概念和结构。" 在VBScript中，字符串...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值