1樓：
option explicit
private sub command1_click()
dim i as integer, s as string, bb() as byte, filename as string
filename = "d:\1.txt"
if dir(filename) = "" then exit sub
redim bb(filelen(filename) - 1)
open filename for binary as #1
get #1, , bb
close #1
s = strconv(bb, vbunicode)
s = replace(s, ",,", vbnewline & vbnewline & " ")
s = replace(s, ",", vbnewline & " ")
open "d:\2.txt" for output as #1
print #1, s
close #1
msgbox "文字已成功轉換！"
end sub
怎樣用VB來提取文字中的字串,怎樣用VB來提取文字中的字串
dim tmpstr as string tmpstr text1 tmpstr replace tmpstr,tmpstr replace tmpstr,變數 tmpstr 就是你想要的效果 函式 replace 的作用，是把一些你回不想要的字元進行答替換.public function extr...
用photoshop怎樣把文字上的logo去掉
用畫筆工具將原來的文字塗抹掉，用文字工具重新打字，也可以將文字選定，用需要的顏色填充文字。ok 拍個 看看怎麼樣的 如何用photoshop去除 上logo的文字 仿製圖章工具s，先按住alt鍵不放，找和文字覆蓋部分相近的顏色部分用滑鼠點一下，再到文字的部分塗抹 用photoshop去除 來上自lo...
請問怎樣把EXCEL中的文字匯入到中，不需要有
複製後點貼上選項 像信封那個圖示 選僅保留文字即可 先在excel中,工具,選項,將網路線去掉,然後在word中,插入.對像,在選你的excel檔案.怎樣才能把excel中的內容複製到word中去,不要 要純文字 excel中的內容複製到word中去,不要 要純文字的操作步驟如下 1 選中想要進行複...