Vb.net 查找并替换文本文件中的文本

Vb.net 查找并替换文本文件中的文本,vb.net,replace,Vb.net,Replace,我正在创建一个程序,在单词路径中找到一个特定的句子,并用给定的值替换它 具体句子:l=“600” 并且必须将其更改为:l=“300” 这并不难,而且效果很好: Public Class Form1 Private Property sign As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sign1 As String Dim sign2 As S

我正在创建一个程序,在单词路径中找到一个特定的句子,并用给定的值替换它

具体句子:
l=“600”

并且必须将其更改为:
l=“300”

这并不难,而且效果很好:

Public Class Form1

Private Property sign As String

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sign1 As String
Dim sign2 As String


sign1 = ("""600""") 'original value
sign2 = ("""300""") 'New value

Dim source As String = "C:\temp\bodem.mpr" 'path from original file
Dim destination As String = "C:\temp\bodem2.mpr" 'path new file
Dim oldText As String = "l=" & sign1 'old value
Dim newText As String = "l=" & sign2 'new value

My.Computer.FileSystem.WriteAllText(destination, My.Computer.FileSystem.ReadAllText (source).Replace(oldText, newText), False)
Process.Start("C:\temp\bodem2.mpr") 'opens program in wordpath to control value
End Sub 

End Class

唯一的问题是原来的句子:
l=“600”
并不总是有600的值,而是总是有一个我不知道的不同值。(示例:l=“600”/l=“600.02”/l=“300”/l=“1600.02”)我如何在代码中写下这一点。

Dim sign1作为字符串Dim sign2作为字符串sign1=(“600”)、sign2=(“300”)Dim source作为字符串=“C:\temp\bodem.mpr”从原始文件Dim destination作为String=“C:\temp\bodem2.mpr”路径新文件Dim oldText作为字符串=“l=”&sign1'旧值Dim newText As String=“l=“&sign2”新值My.Computer.FileSystem.writealText(目标,My.Computer.FileSystem.ReadAllText(源)。替换(oldText,newText),False)进程。启动(“C:\temp\bodem2.mpr”)'在wordpath中打开程序以控制值结束子项。您应该修改代码块以使其更可读(即,删除行号,固定缩进)并为您使用的语言添加标记。您可以使用正则表达式替换文本/小数。我们可以看到,您可以在VB.NET中使用
regex
(正则表达式)