Dim strs1 As String = FileSys.ReadAllText(ProjectPath & "Attachments/web/echarts/hr.html", EnCoding.utf8)
strs1 = strs1.Replace("//##人事值##//","[" & zzzs & "," & lzdsp & "," & zrlz & "," & zrrz & "," & bir & "," & htt & "," & htw & "," & jkz & "]")
Dim file1 As String = ProjectPath & "temp/" & Rand.NextString(32) & ".html" '随机生成一个名字,为了缓存一个不重复的临时文件
FileSys.WriteAllText(file1, strs1, False, Encoding.utf8) '把替换好html内容写回去
Dim wb1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser3")
wb1.Address = file1 '把生存的缓存html加载到WebBrowser显示