其他

dim函數的第三個參數，也就是截取字元的長度，我在設定這個的時候，出了些問題:response.write mid(up_address,a(i),a(i+1)-1) & “<br />”像我上面這樣寫的時候，它就會報錯，提示無效的程序呼叫或參數, response.write mid(up_address,a(i),a(i+1)+1) & “<br

有個小問題，如下： 現有文字檔1.txt，內容如下： 數值_1出現頻度12647 數值_2出現頻度10000 數值_3出現頻度12608 數值_4出現頻度8712 數值_5出現頻度10658 數值_6出現頻度8472 數值_7出現頻度11232 數值_8出現頻度8648 數值_9出現頻度9264 數值_10出現頻度7192 數值_11出現頻度7192 。。。。 大概有100行 要求把裡面每行的數值放到變數中，然後輸出成文字檔 2.txt 舉例： 把第一行的12674，放到變數a1中 把第二行的1

exe2bat的指令碼 複製代碼 代碼如下: fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl65536 with

為瞭解決這類問題，我使用Visual Basic Scripting設計了一個指令碼，可以自動達到這個目標。在本指令碼中，自動壓縮所有檔案。為了避免將指令碼自己也壓縮排去，使用了一些判斷。 複製代碼 代碼如下: call main() Sub main() Dim fs '檔案系統。 Dim f 'folder Dim fc 'files Dim s 'string Dim ws 'SHELL。 Dim subfs Dim fi '建立SHELL。 Set ws = CreateObject("

複製代碼 代碼如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目標檔案夾不存在！" Else objFSO.CreateFolder targetpath &

最近對 VBS 字串 Chr(0) 注①截斷討論得比較多，看來有必要介紹一下 VBS 字串的內部實現。Demon 友情提示：本文需要一些 C 語言和 Windows 編程的知識，VBScript 初學者慎入。 VBS 是基於微軟的 ActiveX/COM 技術實現的，而 COM 物件為了做到支援任何語言，定義了一系列通用的資料類型，微軟稱之為Automation 物件類型（Automation data types），其中之一就是 BSTR。VBS 在內部是以 BSTR 來表示字串的，BSTR

Because of its length, only the code for the function itself is shown on this page. The demo script that shows how to use this function is available as a separate download. 複製代碼 代碼如下: Function ReadRegValue( myComputer, myRegPath, myRegValue ) ' This

VBScript Code: 複製代碼 代碼如下: ' Create a WSH Shell object: Set wshShell = CreateObject( "WScript.Shell" ) ' ' Create a new key: wshShell.RegWrite "HKCU\TestKey\", "" ' Create a new DWORD value: wshShell.RegWrite "HKCU\TestKey\DWordTestValue", 1,

This script demonstrates how to save information to a xml file with the use of MSXML. The example xml file is used for the photo album on the site. 複製代碼 代碼如下: '***************************************************************** '** Script:

每一講的主題：第一講：VBS介紹和相關第二講：資料類型和變數、注釋第三講：基本的流程式控制制語句第四講：過程與函數第五講：對象的介紹和調用第六講：檔案和檔案夾的操作第七講：WSH指令碼宿主第八講：Regex第九講：類和物件導向第十講：WMI的使用------------------------------------------------------------------------------------下載地址：115網盤下載地址：http://u.115.com/file/e6kqfo

Name 屬性設定或返回指定的檔案或檔案夾的名稱。可讀寫。object.Name [= newname] 參數object必選項。應為 File 或 Folder 對象的名稱。newname可選項。如果提供此參數，則指定的 object 名稱更新為 newname。說明以下代碼舉例說明如何使用 Name 屬性：Function ShowFileAccessInfo(filespec) Dim fso, f, s Set fso =

ParentFolder 屬性返回指定檔案或檔案夾的父資料夾。唯讀。object.ParentFolder object 應為 File 或 Folder 對象的名稱。說明以下代碼舉例說明如何使用 ParentFolder 屬性：Function ShowFileAccessInfo(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f =

SerialNumber 屬性返回十進位序號，用於唯一標識一個磁碟卷。object.SerialNumber object 應為 Drive 對象的名稱。說明可以使用 SerialNumber 屬性以確保在抽取式媒體磁碟機中插入正確的磁碟。以下代碼舉例說明如何使用 SerialNumber 屬性：Function ShowDriveInfo(drvpath) Dim fso, d, s, t Set fso =

ShortName 屬性返回按照早期 8.3 檔案命名規範轉換的短檔案名稱。object.ShortName object 應為 File 或 Folder 對象的名稱。說明以下代碼舉例說明如何使用 ShortName 屬性：Function ShowShortName(filespec) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f =

VolumeName 屬性設定或返回指定磁碟機的卷標。可讀寫。object.VolumeName [= newname] 參數object必選項。應為 Drive 對象的名稱。newname可選項。如果提供此參數，則 newname 為指定的 object 的新名稱。說明以下代碼舉例說明如何使用 VolumeName 屬性：Function ShowVolumeInfo(drvpath) Dim fso, d, s Set fso = CreateObject("Scripting.

特殊字元有不少元字元在試圖對其進行匹配時需要進行特殊的處理。要匹配這些特殊字元，必須首先將這些字元轉義，也就是在前面使用一個反斜線 (\)。下表給出了這些特殊字元及其含義：特殊字元說明$匹配輸入字串的結尾位置。如果設定了 RegExp 對象的 Multiline 屬性，則 $ 也匹配 '\n' 或 '\r'。要匹配 $ 字元本身，請使用 \$。( )標記一個子運算式的開始和結束位置。子運算式可以擷取供以後使用。要匹配這些字元，請使用 \( 和 \)。*匹配前面的子運算式零次或多次。要匹配 *

VBScript 有一套完整的運算子，包括算術運算子、比較子、串連運算子和邏輯運算子。運算子優先順序　　當運算式包含多個運算子時，將按預定順序計算每一部分，這個順序被稱為運算子優先順序。可以使用括弧越過這種優先順序順序，強制首先計算運算式的某些部分。運算時，總是先執行括弧中的運算子，然後再執行括弧外的運算子。但是，在括弧中仍遵循標準運算子優先順序。

VBS文檔中對SetLocale函數的描述： 設定全球地區設定，並返回以前的地區設定。 一個 locale 是使用者參考資訊集合，與使用者的語言、省/地區和文化傳統有關。該 locale 決定鍵盤配置、字母排序次序和日期、時間、數字與貨幣格式。 簡單的說，就是VBS中的一些函數的傳回值與當前的locale相關，比如說MonthName函數： 複製代碼 代碼如下: Dim a(12), b(12) 'By Demon SetLocale "zh-cn" For i = 1 To 12 a(i) =

複製代碼 代碼如下: '向指定的檔案寫字串，第三個參數指定是否刪除原來的內容 Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppending else iomode = 2 'ForWriting end if set fs = CreateObject("Scripting.FileSystemObject") set fso

複製代碼 代碼如下: '-------------vbsTree.vbs------------------------ '描述:用vbs輸出一個檔案夾的目錄結構。 '------------------------------------------------ Const Unit4Size = "位元組KBMBGB" Const OutFile = "OutTree.txt" Dim theApp,SelPath,TreePath,TreeStr Set theApp =