bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码
导读：收集整理的这篇文章主要介绍了bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 核心代码:复制代码 代码如下: If...
收集整理的这篇文章主要介绍了bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 核心代码:复制代码 代码如下:
If WScript.arguments.UnNamed.Count > 1 Then Syntax
If WScript.arguments.Named.Count > 1 Then Syntax
blnTd = False
If WScript.Arguments.Named.Count = 1 Then
If UCase( WScript.Arguments.Named( 0 ) ) = "/TD" Then
blnTd = True
Else
Syntax
End If
End If
strISBN = WScript.Arguments.UnNamed( 0 )
strPgTITle = TitleFromHTML( "http://www.amazon.COM/gp/PRoduct/" & strISBN & "/" )
strPattern = "Amazon.com: (.*): Books: (.*)$"
strTitle = RegExpVal( strPattern, strPgTitle, 0 )
strAuthor = RegExpval( strPattern, strPgTitle, 1 )
If blnTd Then
strMsg = strISBN & vbTab & strTitle & vBTab & strAuthor & vbCrLf
Else
strMsg = vbCrLf & "Title : " & strTitle _
& vbCrLf & "Author : " & strAuthor _
& vbCrLf & "ISBN : " & strISBN
End If
WScript.Echo strMsg
Function RegExpVal( strPattern, strString, idx )
On Error Resume Next
Dim regEx, Match, Matches, RetStr
Set regEx = New RegExp
regEx.Pattern = strPattern
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute( strString )
RegExpVal = Matches( 0 ).SubMatches( idx )
End Function
Function TitleFromHTML( strURL )
Set ie = CreateObject( "internetExplorer.Application" )
ie.navigate strURL
Do Until ie.Readystate = 4
WScript.Sleep 10
Loop
TitleFromHTML = ie.Document.Title
ie.Quit
End Function
Sub Syntax
strMsg = strMsg & vbCrLf & "BookFind.vbs, Version 1.11" & vbCrLf _
& "Display book title and author name for the sPEcified ISBN number." & vbCrLf & vbCrLf _
& "usage: CSCRIPT //NOLOGO BOOKFIND.VBS isbn [ /TD ]" & vbCrLf & vbCrLf _
& "Where: ""isbn"" is the ISBN (or ASIN) of the book to seArch for" & vbCrLf _
& " /TD changes the output format to tab delimited" & vbCrLf & vbCrLf _
& "Note: This script uses Amazon's web site to look up author and title." & vbCrLf _
& " To be precise, the data is extracted from the title of the page" & vbCrLf _
& " with URL http://www.amazon.com/gp/product/ followed by the ISBN." & vbCrLf _
& " That means this script will fail when Amazon changes the URLs." & vbCrLf & vbCrLf _
& "Written by Rob van der Woude" & vbCrLf _
& "http://www.robvanderwoude.com"
Wscript.Echo( strMsg )
Wscript.Quit( 1 )
End Sub
使用方法:
CSCRIPT //NOLOGO BOOKFIND.VBS isbn [ /TD ]
Where: "isbn" is the ISBN (or ASIN) of the book to search for
/TD changes the output format to tab delimited
Note: This script uses Amazon's web site to look up author and title.
To be precise, the data is extracted from the title of the page
with URL http://www.amazon.com/gp/product/ followed by the ISBN.
That means this script will fail when Amazon changes the URLs. 您可能感兴趣的文章:
- javascript字符串与数组转换汇总
- Javascript进制转换实例分析
- Javascript实现颜色rgb与16进制转换的方法
- JavaScript转换二进制编码为ASCII码的方法
- JavaScript将字符串转换为整数的方法
- php根据isbn书号查询amazon网站上的图书信息的示例
- PHP校验ISBN码的函数代码
- JavaScript实现将UPC转换成ISBN的方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码
本文地址： https://pptw.com/jishu/609930.html