用vbs 將有序檔案轉換為有序檔案

2021-07-15 12:06:38 字數 1074 閱讀 2986

用vbs 將有序檔案轉換為有序檔案

'msgbox "當前檔案路徑是 " & wscript.scriptfullname 

'set ws=createobject("wscript.shell")

'msgbox "當前資料夾是 " & ws.currentdirectory

'將***.list 轉換為陣列

'2016-07-24

option

explicit

dim fso,fread,strline

dim txtfso, txtfs

dim idx, str

set fso=createobject("scripting.filesystemobject")

set fread=fso.opentextfile("***.list",1)

set txtfso = wscript.createobject("scripting.filesystemobject")

set txtfs = txtfso.createtextfile("***.txt", true)

txtfs.writeline("==== 以下為轉換後的內容 ====")

txtfs.writeblanklines(3)

dountil fread.atendofstream

strline=replace(fread.readline, " ", "") '當前行去除空格後,賦值給strline

idx = instr(strline, "obj") '獲取 obj 在當前行的位置,索引從1開始

if idx > 0

then

'如果出現obj

idx = idx + 5

str = mid(strline, idx, 2) + ","

str = ","

txtfs.writeline(str)

str = ""

endif

loop

txtfs.close

fread.close

set fso=nothing

LeetCode108 將有序陣列轉換為二叉搜尋樹

將乙個按照公升序排列的有序陣列,轉換為一棵高度平衡二叉搜尋樹。本題中,乙個高度平衡二叉樹是指乙個二叉樹每個節點 的左右兩個子樹的高度差的絕對值不超過 1。示例 給定有序陣列 10,3,0,5,9 乙個可能的答案是 0,3,9,10,null,5 它可以表示下面這個高度平衡二叉搜尋樹 0 3 9 10...

LeetCode108 將有序陣列轉換為二叉搜尋樹

將乙個按照公升序排列的有序陣列,轉換為一棵高度平衡二叉搜尋樹。本題中,乙個高度平衡二叉樹是指乙個二叉樹每個節點 的左右兩個子樹的高度差的絕對值不超過 1。示例 給定有序陣列 10,3,0,5,9 乙個可能的答案是 0,3,9,10,null,5 它可以表示下面這個高度平衡二叉搜尋樹 0 3 9 10...

leetcode108 將有序陣列轉換為二叉搜尋樹

將有序陣列轉換為二叉搜尋樹。難度 簡單。將乙個按照公升序排列的有序陣列,轉換為一棵高度平衡二叉搜尋樹。本題中,乙個高度平衡二叉樹是指乙個二叉樹每個節點 的左右兩個子樹的高度差的絕對值不超過 1。示例 給定有序陣列 10,3,0,5,9 乙個可能的答案是 0,3,9,10,null,5 它可以表示下面...