一、
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)