文本框 TextBox1
在康巴什等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供成都網(wǎng)站制作、網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需求定制設(shè)計(jì),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),成都營銷網(wǎng)站建設(shè),外貿(mào)網(wǎng)站制作,康巴什網(wǎng)站建設(shè)費(fèi)用合理。
上一條 Button1
下一條 Button2
修改 Button3
Imports?System.IO
Public?Class?Form1
Dim?currIndex?As?Integer?=?0
Dim?s2?As?List(Of?String)?=?New?List(Of?String)
Dim?s?As?String
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
s?=?File.ReadAllText(Application.StartupPath??"\txt.txt")
Dim?s1?As?String()?=?s.Split("@")
For?i?As?Integer?=?0?To?s1.Length?-?1
If?s1(i).Trim()??""?Then
s2.Add("@"??s1(i))
End?If
Next
TextBox1.Text?=?s2(0)
End?Sub
Private?Sub?Button2_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button2.Click
currIndex?=?currIndex?+?1
If?currIndex??s2.Count?-?1?Then
MsgBox("已經(jīng)是最后條了")
Return
End?If
TextBox1.Text?=?s2(currIndex)
End?Sub
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
currIndex?=?currIndex?-?1
If?currIndex??0?Then
MsgBox("已經(jīng)是第一條了")
Return
End?If
TextBox1.Text?=?s2(currIndex)
End?Sub
Private?Sub?Button3_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button3.Click
s2(currIndex)?=?TextBox1.Text
s?=?""
For?i?As?Integer?=?0?To?s2.Count?-?1
s?=?s2(i)
Next
File.WriteAllText(Application.StartupPath??"\txt.txt",?s)
End?Sub
End?Class
變通的方法:
首先 把List 替換為一個(gè)其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為List。
TextBox 有 SelectionStart 和 SelectionLength 兩個(gè)屬性,分別代表選中字符(也就是查找之后高亮的那部分)的起始位置和長度。
string 類型本身有方法 IndexOf(),可以獲取某個(gè)字符串第一次出現(xiàn)的位置,把這個(gè)值賦值給 SelectionStart,把這個(gè)字符串的 Length 賦值給 SelectionLength,這就是查找并高亮功能了。
替換的話就是 Replace() 方法。
這個(gè)簡單,截取字符串就行了
TextBox1.Text = TextBox1.Text.Substring(0, 2) "BB" TextBox1.Text.Substring(4, 2)
x="a[11dsfsf]b"
b=x.lastindexof("]")
a=x.indexof("[")
x=x.substring(0,a) "0" x.substring(b)
將dll以文件方式以UTF-8的方式讀入,然后接下來就替換字符串就可以了嘛
C#:
using System.IO;
...
string text;
text=File.ReadAllText(FilePath, Encoding.UTF8);
text.Replace("...","...");
...
-------------------------
還要謝謝你,不然我還不知道是UTF-8的編碼格式,我有一個(gè)驗(yàn)證的問題可以解決了。
網(wǎng)頁題目:vb.net中替換字符串 vb 替換字符函數(shù)
標(biāo)題來源:http://chinadenli.net/article38/dodidpp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供App開發(fā)、網(wǎng)站排名、動(dòng)態(tài)網(wǎng)站、品牌網(wǎng)站制作、品牌網(wǎng)站建設(shè)、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)