語法錯誤,沒有存儲函數的返回值。
成都創新互聯專注為客戶提供全方位的互聯網綜合服務,包含不限于網站制作、成都網站建設、吉安網絡推廣、小程序開發、吉安網絡營銷、吉安企業策劃、吉安品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;成都創新互聯為所有大學生創業者提供吉安建站搭建服務,24小時服務熱線:13518219792,官方網址:www.cdcxhl.com
temp.Replace("111", "22")
這個函數方法返回修改后的結果,并不修改參數變量本身,也就是按值傳遞,而不是按地址傳遞,正確用法:
temp=temp.Replace("111", "22")
這個簡單,截取字符串就行了
TextBox1.Text = TextBox1.Text.Substring(0, 2) "BB" TextBox1.Text.Substring(4, 2)
文本框 TextBox1
上一條 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("已經是最后條了")
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("已經是第一條了")
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 替換為一個其他的字符串如OOO,要全字匹配替換。然后替換List為fList,然后再把OOO替換為List。
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的編碼格式,我有一個驗證的問題可以解決了。