1樓：匿名使用者
很簡單的問題你自己解決好了。
請問vb幾個文字框內容去除相同內容後text2出現下圖的排列情況用什麼**整理啊
2樓：閃星
可以用split函式分割，然後再組合起來，組合的時候如果需要去掉兩邊的空格，可以用trim函式。
vb怎樣去除textbox重複的字元
3樓：網友
定義乙個字串，儲存textbox的文字值，再定義乙個空字串儲存返回值，從左向右依次替換出現的字元為空，並把這個字元累加到返回字串中，當替換完所有字元之後，再把返回值字串賦值給textbox，**如下：
private sub command1_click()dim str as string, rt as stringstr =
rt = ""
do while len(str) >0rt = rt & left(str, 1)str = replace(str, left(str, 1), "")
loop rt
end sub
執行效果如下：
vb 將text文字排序
4樓：匿名使用者
private sub command1_click()dim sz() as string
dim jg as string
sz = split(text1, vbcrlf)for i = 0 to ubound(sz)if instr(text1, "x") >0 and instr(text1, "y") >0 then jg = jg & sz(i) &" "
next i
if len(jg) = 0 then exit subjg = trim(jg)
sz = split(jg, " ")
for i = ubound(sz) to 1 step -1for j = 1 to i - 1
if val(replace(split(sz(j), "y")(0), "x", "")) val(replace(split(sz(j + 1), "y")(0), "x", "")) then
t = sz(j)
sz(j) = sz(j + 1)
sz(j + 1) = t
end if
next j
next i
-顯示結果。
text2 = ""
for i = 0 to ubound(sz)text2 = text2 & sz(i) &vbcrlfnext i
end sub
自己畫個text1，text2，command1就可以了。
用vb找到文字中重複的行？
5樓：網友
方法一：將text1中資料逐行新增到資料庫中，然後分組查詢，select 欄位名，count(*)as 重複次數 from 表 group by 欄位，把查到的資料全部賦值給text2，把重複次數大於0的賦值給text3
方法二：利用陣列，a=split(,chr(13)+chr(10)),然後做兩層迴圈。
dim a() as string
a=split(,chr(13)+chr(10))for i=0 to ubound(a)
if a(i)<>"" then
for j=0 to ubound(a)
if a(i)=a(j) then
第" & j & "行與第" & i ^ "行重複：" & a(j)
a(j)=""
end if
nextend if
next
6樓：華仔成教
既然你已經找到**，那我就借花獻佛一下：
if instr(strtemp, objstr) thenstrtemp = replace(strtemp, objstr, ""):
text2 = text2 & objstr & vbcrlfelse 『在這裡多兩行就行啦。
text3 = text3 & objstr & vbcrlfend if
vb text內容重複比較
7樓：網友
只能和你說下思路。
一種方法是這樣：建乙個陣列，然後設乙個變數，數值隨機0到9，第一次變數隨機賦值後，把變數賦值給陣列（此時陣列只有乙個數，下標0）第二次變數隨機賦值，然後與陣列裡所有值比較，無重複的話，陣列新增下標1，賦值這個變數。
第三次變數隨機賦值，然後與陣列裡所有值比較，無重複的話，陣列新增下標2，賦值這個變數。
這樣一直到你需要的文件個數為止，然後開始建文件，並存入相應數字。
8樓：網友
用text陣列控制項。
dim aaa as string
private sub form_activate()aaa = "0123456789"
end sub
private sub text1_keypress(index as integer, keyascii as integer)
if keyascii <= 57 and keyascii >= 47 then
if instr(aaa, chr(keyascii)) thenaaa = replace(aaa, chr(keyascii), "")
elsemsgbox "已輸入過"
keyascii = 0
end if
elsemsgbox "請輸入數字"
keyascii = 0
end if
end sub
vb 去重複text1.text="54688852" 點按鈕得到 text2.text="54682"
9樓：這人可能有點帥
private sub command1_click()dim i as long
dim 記錄上一字元 as string
dim 字元 as string
for i = 1 to len(
字元 = mid(, i, 1)
if 記錄上一字元 <>字元 then
字元。記錄上一字元 = 字元。
end if
nextend sub
private sub form_load()= 54688852
轉換"end sub
vb 如何清除多個text的內容？
10樓：網友
這個是可以的。建控制項陣列的方法有二：一是選取你的text1，ctrl+c，ctrl+v，出來乙個對話方塊問你，你就確定，就生成了控制項陣列。
二是在右邊的屬性中，把index設定為0，然後在**中呼叫。方法是load text1(index)其中index是序列號。
你那個程式可以這樣寫。
private sub command1_click()for i = text1(lbound(text1)) to text1(ubound(text1))
text1(i).text = ""
nextend sub
11樓：網友
'新增窗體form1,按鈕command1,再隨便加幾個文字框，然後新增如下**：
private sub command1_click()on error resume next
dim txttemp as controlfor each txttemp in me= ""
nextend sub
12樓：棉花糖
建控制項陣列text1(index)
private sub command1_click()for i = 0 to n 'n是你文字框的個數text1(i).text = ""
nextend sub
13樓：網友
可以。但上面的說明可以改一下：
for i = 0 to n 'n是你文字框的個數 （文字框的個數不是n，而是n + 1個）。
建立text1陣列控制項可以這樣：
先建立乙個text1控制項，然後複製text1,貼上。直到夠您所要的數目即可。
記住，第乙個text1的index為0,而不是1
14樓：網友
首先建立乙個command按鈕command1然後選擇command1,再在操作介面右邊的屬性欄找到index項，把這一項改成0.
之後你再建立的command按鈕就會以command1(index)的形式出現。
如command1（0）、command1（1）……剩下的就可以用你的**完成啦。
15樓：網友
可以，複製貼上相同控制項就可以建立。
16樓：網友
建立乙個text1 複製 貼上·點是·迴圈。
還有就是index項改成0.
複製 貼上。
17樓：灰色的灰擦
n是文字框數量-1，因為是從0開始。
VB對text操作，vb中如何使text1中輸入內容立即顯示在text2中
設定text控制項的selstart屬性，指定所要選擇文字起始位置 設定text控制項的sellength屬性，設定選擇文字字元的數量 通過ext控制項的seltext屬性，獲取所選定的文字。舉例如下。private sub command click 起始位置為，這是文字框最開始的位置。 選定個字元。e...
VB 怎麼判斷游標處在某個text控制元件上
使用文字框的gotfocus事件 假設你的窗體上有兩個文字框 名字為 text1 和 text2下面的 就可以判斷 private sub text1 gotfocus msgbox 游標在text1 end sub private sub text2 gotfocus msgbox 游標在text...
vb 文字框顯示通用對話方塊開啟文字檔案內容
jbp22d5f90f0a，你究竟是何方神聖？以jbp打頭的名字上百個，財富值794710，提問數122627，回答數0，提問永遠匿名，從不加分，很少採納，每次一提問就是幾十個問題一起發，舉報管理員也不受理，你是管理員他爹？這個肯定要用到檔案操作的相關知識了.vb 怎樣開啟檔案並把檔案內容顯示在文字...