Dim Info As
String
Info =
FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default)
'读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As
String =
Info.Split(vblf) '将读取的信息拆分为数组
Dim r As
Row = Tables("表A").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("住址") = pars(4)
r("身份证号码") = pars(5)
sb.AppendLine("<form enctype='multipart/form-data' method='post' id='form1' name='form1'>")
sb.AppendLine("姓名: <input name='xm' id='cp'><br/><br/>")
sb.AppendLine("性别: <input name='xb' id='kh'><br/><br/>")
sb.AppendLine("身份证号: <input name='sfzh' id='gy'><br/><br/>")
sb.AppendLine("住址: <input name='zz' id='gy'><br/><br/>")
sb.AppendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")
sb.AppendLine("</form>")
e.WriteString(sb.ToString)
请教一下,这段标记了的代码该如何写才能变成在AppendLine中显示?