1樓：匿名使用者
private sub command1_click()
if text6.text = "" then exit sub '如果沒有資料退出過程
dim strtemp() as string '定義每行資料陣列
dim strtemp1() as string '定義每行分析資料的陣列
strtemp = split(text6.text, vbcrlf) '將text6中的資料按行分組
for i = 0 to ubound(strtemp) '迴圈分析陣列中的資料
strtemp1 = split(strtemp(i), "：") '按中文冒號分隔
if ubound(strtemp1) = 0 then '如果沒有中文冒號
strtemp1 = split(strtemp(0), ":") '按照英文冒號分隔
end if
if ubound(strtemp1) > 0 then '如果資料符合要求
if strtemp1(0) = "旺旺id" then text1.text = strtemp1(1)
if strtemp1(0) = "收款人姓名" then text2.text = strtemp1(1)
if strtemp1(0) = "退款餘額" then text3.text = strtemp1(1)
if strtemp1(0) = "退款原因" then text4.text = strtemp1(1)
if strtemp1(0) = "採購單編號" then text5.text = strtemp1(1)
end if
next
end sub
2樓：小李無刀
text6.text=""
text6.text=text6.text & "旺旺id：" & text1.text
text6.text=text6.text & "收款人姓名：" & text2.text
text6.text=text6.text & "退款金額：" & text3.text
text6.text=text6.text & "退款原因：" & text4.text
text6.text=text6.text & "採購單編號：" & text5.text
我是神用日文怎麼寫
護袖 手機不好打日文還請多多包涵,送上正確羅馬音 watashiwakamidesu.還要勞煩您自己翻成假名漢字了 把這句話翻譯成日文 我是神，你是誰 笨龍貓 俺 神 前 何者 這裡最好不要用 俺様 神 感覺重複了。不協調。 花迴廊 我是神，你是誰 俺 神 前 誰？o lei wa ka mi na...
我是你最愛的人用梵文怎麼寫，我是你最愛的人梵文怎麼寫，用來紋身的！
為你轉動心絃 我是你最愛的人，梵文寫法如下 我是你最愛的人梵文怎麼寫，用來紋身的！ 粵事通 你要不是不想紋個錯誤的玩意 就不要把中文翻譯成梵文 梵文來自印度最早佛教，目前都還在研究中，流世的文字不多 建議用藏文吧，和梵文很像的，而且翻譯過來準確信比較高。 阿彌陀佛！與本吧主題不符！ 撒荌言曉曼 昝和...
我這個收據怎麼寫？格式是怎樣的，請問收據的格式是什麼樣的
華律網 一個完整的收條，通常應由標題 正文 落款三部分組成。一 標題標題寫在正文上方中間位置，字型稍大。標題的寫法有兩種，一種是直接由文種名構成，另一種是把正文的前三個字作為標題，而正文從第二行頂格處接著往下寫。二 正文正文一般要寫明下列內容，即寫明收到的錢物的數量 物品的種類 規格等情況。如果是收...