一、
Dim s As String = "河北省\唐山市\一中"
s = s.Replace("河北省\唐山市\","河北省\唐山市.")
Output.Show(s)
二、
Dim s As String = "河北省\唐山市\一中"
s = s.Split("\")(0) & "\" & s.Split("\")(1) & "." & s.Split("\")(2)
Output.Show(s)
三、
s = s.SubString(0,s.LastIndexOf("\")) & "." & s.SubString(s.LastIndexOf("\") + 1)
[此贴子已经被作者于2013-9-25 13:20:37编辑过]