VB 字元截斷字元問題，VB 截斷字串

s = "我想要它。

太陽日也是如此。

dim re

set re = createobject("")= true true

for each i in

msgbox

next

呵呵，根據補充，原來是提取這些。

試試我的多用途模組。

假設您的源資料放在 text1 中並輸出到 text1。

private sub command1_click()

text1 = join(findstrmulti(text1, "aspx"">", ", 0), vbcrlf)

end sub

在這個模組中，返回乙個陣列，第乙個引數是原始資料，第二個引數是字首，第三個引數是字尾，第四個引數是是否包含字首和字首，（0表示不包括，1表示包含）。

public function findstrmulti(strall$, firststr$, endstr$, findmod&) as string()

dim i&, j&, n&, tmp$()

redim tmp$(10000)

doi = instr(i + 1, strall, firststr)

if i = 0 then exit do

if findmod = 0 then i = i + len(firststr)

j = instr(i, strall, endstr)

if j = 0 then exit do

if findmod = 1 then j = j + len(endstr)

tmp(n) = mid(strall, i, j - i)

n = n + 1

loopif n > 0 then

redim preserve tmp$(n - 1)

findstrmulti = tmp

end if

end function

flag=0 '記錄是否讀取了小數點。

for i=1 to len(text(0))

if mid(text(0),i,1) <"." then

text(i-flag)=mid(text(0),i,1)

elseflag=1

end if

下乙個程式顯示在不同的文字控制項中，這是乙個文字控制項陣列。

text（0） 用於輸入資料，text（1） 到 text（n） 各顯示乙個數字。

mid 函式。

返回乙個變體（字串），該變體包含字串中指定的字元數。

語法 mid（string， start[， length]）。

start 引數為必填項。 是字元在被取出的部分中的位置。 如果 start 超過字串中的字元數，則 mid 返回長度為零的字串 （"")。

length 可選引數; 是變體（長）。 要返回的字元數。 如果省略或長度超過文字中的字元數（包括開頭的字元），則返回字串中從頭到尾的所有字元。

start 變數的值可能大於字串的長度，從而導致字串為空，或者變數的值為 0，從而導致錯誤。

我的超級簡單。

private sub command1_click()dim a as string

a = '輸入的金額必須包含 2 位小數。

if a <>"" then

right(a, 1) '點 = left（right$（a， 2）， 1）.'角度 = 左（右$（a， 5）， 2）.'Meta = left$（a， len（a） -5）。'$100 結束如果

end sub

x-string 變數可以使用 mid 函式實現。

a=mid（x，1，3）

b=mid（x，5，3）

s = "13011301776 牛仔褲 776 40， 38， 36， 35， 34， 33， 32， 31， 秋季 2011 第一波"

dim aa() as string

aa = split(s, vbtab)

a=aa(0)

b=aa(1)

c=aa(2)

d=aa(3)

e=aa(4)

f=aa(5)

private sub command1_click() '截斷字串。

dim tmpstr as string

for i = 0 to split(text1, vblf)tmpstr = split(split(i, ",")(0), ":")(1)

mid(tmpstr, 1, len(tmpstr) -2)tmpstr = split(split(i, ",")(1), ":")(1)

mid(tmpstr, 1, len(tmpstr) -3)end sub '未測試 如果出現錯誤，請通知。