下面的读取txt的没有问题但是doc的不行
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try Dim sr As StreamReader
sr = New StreamReader("h:\123\1.txt", System.Text.Encoding.Default)
TextBox1.Text = sr.ReadToEnd
sr.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
你想加入到数据库就把textbox1.text加进去吧
读出来就是你查询
然后label1.text="查询结果"就行了
想保持格式的话就
Label2.Text = HTMLEncode("查询结果") Function HTMLEncode(ByVal fString)
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(10), "<BR>")
HTMLEncode = fString
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try Dim sr As StreamReader
sr = New StreamReader("h:\123\1.txt", System.Text.Encoding.Default)
TextBox1.Text = sr.ReadToEnd
sr.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
你想加入到数据库就把textbox1.text加进去吧
读出来就是你查询
然后label1.text="查询结果"就行了
想保持格式的话就
Label2.Text = HTMLEncode("查询结果") Function HTMLEncode(ByVal fString)
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(10), "<BR>")
HTMLEncode = fString
End Function
可能要调用vba之类的东东
定义两个函数完成进行文字格式转换:
public string writeStr(string oldStr)
{
//oldStr=oldStr.Replace("''","'");
oldStr=oldStr.Replace(" ", " ");
oldStr=oldStr.Replace("<","<");
oldStr=oldStr.Replace(">",">");
oldStr=oldStr.Replace("<br/>","\n");
oldStr=oldStr.Replace(" ","\t");
oldStr=oldStr.Replace(""","\"");
return oldStr;
}public string readStr(string oldStr)
{
//oldStr=oldStr.Replace("'","''");
oldStr=oldStr.Replace(" "," ");
oldStr=oldStr.Replace("<","<");
oldStr=oldStr.Replace(">",">");
oldStr=oldStr.Replace("\n","<br/>");
oldStr=oldStr.Replace("\t"," ");
oldStr=oldStr.Replace("\"",""");
return oldStr;
}
在提交文章的时候把换行符Convert.ToString((char)13) + Convert.ToString((char)10)替换成HTML代码</P>、<BR>什么的
另外也有一个思路,但是我还没有实现。
制作一个COM或者ActiveX组件,安装到本地计算机用于调用Word文件的显示和操作,我记得Word可以以OLE方式联入到IE中,纳米完全可以定制。至于文件存在数据库中以流的方式保存,读取就可以另外Word2003完全支持XML可以以XML格式保存到数据库,读出后由你的COM组建负责编辑DOC文件,知中间要用到Word的文档对象编程。我计划用C#+.NET了;挨设计,我觉得可能比较容易。
至于txt文档,你只能书写<html>格式来保存了