将FreeTextBox中编辑好的内容写入一个已经存在的Html文件中

Q:
对于已经存在的HTML文档，将其调入freetextbox中编辑修改，该完之后存回原来的HTML文档，谢谢！

A:
回复人：hackate(兰花开香入梦境,独思佳人亦飘然!!) ( 两星(中级)) 信誉：100 2005-5-2 18:29:24 得分:20
?

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim readtxt As StreamReader
Dim readcount As String

readtxt = File.OpenText(server.mappath("xxx.html"))
readcount = readtxt.ReadLine()

While readcount <> Nothing
TextBox1.Text &= readcount & vbCrLf
readcount = readtxt.ReadLine
End While
readtxt.Close()

End Sub

然后再FreeTextBox1.Text=TextBox1.Text

就可以了
Top
回复人：hackate(兰花开香入梦境,独思佳人亦飘然!!) ( 两星(中级)) 信誉：100 2005-5-2 18:43:06 得分:20
?

刚修改了下，这样好！
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim readtxt As StreamReader
Dim readcount As String

readtxt = New StreamReader(Server.MapPath("lanxin.html"), System.Text.Encoding.GetEncoding("gb2312"))
readcount = readtxt.ReadToEnd

TextBox1.Text = readcount
readtxt.Close()
End Sub
Top
回复人：hackate(兰花开香入梦境,独思佳人亦飘然!!) ( 两星(中级)) 信誉：100 2005-5-2 18:43:38 得分:0
?

当然你可以把这个TextBox1换成你的FreeTextBox
Top
回复人：flashagain(其实大家都各有所长) ( 一级(初级)) 信誉：100 2005-5-2 18:47:22 得分:0
?

谢谢你的答案，只是你这个是读文件，将HTML文档读到FreeTextBox中。但是我不会的是将在FreeTextBox中修改好的文档重新写入HTML文件中去。而且FreeTextBox中的代码好像只有<body>...</body>之间的内容。之前的头没有。
Top
回复人：hackate(兰花开香入梦境,独思佳人亦飘然!!) ( 两星(中级)) 信誉：100 2005-5-2 19:08:08 得分:10
?

Dim wrttxt As StreamWriter
Dim wrtcount As String

wrttxt = New StreamWriter(Server.MapPath("lanxin.html"), False, System.Text.Encoding.GetEncoding("gb2312"))
wrttxt.WriteLine(FreeTextBox1.Text)
wrttxt.Close()

先试试
Top
回复人：flashagain(其实大家都各有所长) ( 一级(初级)) 信誉：100 2005-5-2 20:13:43 得分:0
?

不行啊。提示

错误信息:
从客户端(FtbPage="

错误堆栈:System.Web.HttpRequestValidationException: 从客户端(FtbPage="


FtbPage 就是FreeTextBox
Top
回复人：hackate(兰花开香入梦境,独思佳人亦飘然!!) ( 两星(中级)) 信誉：100 2005-5-2 20:20:59 得分:0
?

你是不是照我上面的代码做的。

wrttxt.WriteLine(FreeTextBox1.Text)

FreeTextBox1是你的FreeTextBox控件的名称啊。你没改么？

还有如果不是这个问题。你设置了你这个页面。比如你这个.aspx里面要设置

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="TestArrayList.aspx.vb" Inherits="WebApplication4.TestArrayList" validateRequest="false"%>

就是这个page里面摇加这个属性

validateRequest="false" 然后，看看，我这里没错

Top
回复人：flashagain(其实大家都各有所长) ( 一级(初级)) 信誉：100 2005-5-3 10:42:14 得分:0
?

非常感谢hackate,关键是加了validateRequest= "false ".!谢谢
Top
回复人：vzxq(灵感人) ( 一星(中级)) 信誉：100 2005-5-8 17:08:37 得分:0
?

解决了吗
Top
回复人：litianfei(天飞) ( 一级(初级)) 信誉：99 2005-5-8 17:41:09 得分:0
?

hackate兄，真热心，说的很详细。
Top

该问题已经结贴 ，得分记录： hackate (20)、 hackate (20)、 hackate (10)、
posted @ 2005-07-07 21:54  泡面 @ 幸福  阅读(513)  评论(1)    收藏  举报