我希望有额外的字符将作为分隔我串
问题描述:
Sub SaveInLogs(isThereNewLogs As Boolean, value As String)
Dim list As List(Of String)
Try
list = Strings.Split(value, "#-!-#").ToList
list(2) = "Incoming"
For Each word In list
MsgBox(list)
Next
Catch ex As Exception
End Try
End Sub
paramater“价值”的价值是这样的:! 2016年7月28日上午10时19分27秒# - - #Alex17282016# - !###1ST我希望有额外的字符将作为分隔我串
然后我分割这些值并将单词Outgoing改为Incoming。
现在我想让我的字符串再次看起来像这样 2016/7/28 10:19:27# - ! - #Alex17282016# - ! - #Incoming# - ! - #Alex# - ! - # Alex# - ! - #Text# - ! - #1ST
对不起,我的语法。我希望你明白我的问题
答
下面我编辑你的代码已经使字符串的方式,你希望它改变后,“呼出”到“来电”:
Sub SaveInLogs(isThereNewLogs As Boolean, value As String)
Dim list As List(Of String)
Dim newValue as String = ""
Try
list = Strings.Split(value, "#-!-#").ToList
list(2) = "Incoming"
For Each word In list
newValue = newValue & word
Next
value = newValue
Catch ex As Exception
End Try
End Sub
或者马克在评论说,你可以使用,而不是一个循环的string.join:
Sub SaveInLogs(isThereNewLogs As Boolean, value As String)
Dim list As List(Of String)
Try
list = Strings.Split(value, "#-!-#").ToList
list(2) = "Incoming"
Dim newValue As String = String.Join("#-!-#", list)
Catch ex As Exception
End Try
End Sub
下面是代码,我觉得会更好地工作,因为它是一个一行代码,也不需要来拆分字符串,并把它回到一起:
Sub SaveInLogs(isThereNewLogs As Boolean, value As String)
value = value.replace("#-!-#Outgoing#-!-#", "#-!-#Incoming#-!-#")
End Sub
为什么在第一个位置分割字符串? [String.Replace]有什么问题(https://msdn.microsoft.com/en-us/library/windows/apps/fk49wtc1(v = vs.105).aspx)? –
为什么不使用JSON?这更简单实用。只是一个建议。 –
我不完全确定你在问什么,但也许''''''''''' – Mark