Question

vb文本编辑器打开代码的问题

colog1.Filter = "文本文件|*.txt"
colog1.ShowSave
fn = colog1.FileName

Open fn For Output As #1
Write #1, s, fontname1, fontsize1, fontbold1, fontitalic1, backclolor1, foreclolor1, underline1, strikethru1
Text1 = s
Close #1
我像这样保存了文件，但打开了却和保存的时候不一样
colog1.Filter = "文本文件|*.txt"
colog1.ShowOpen
Text1.Text = ""
fn = colog1.FileName

Open fn For Input As #1
Do While Not EOF(1)
Line Input #1, s1
s = s & s1 & Chr(13) & Chr(10)
Loop
Text1 = s
这个打开的代码该怎么修改，请教大神

Answer 1

Private Sub Command1_Click()
colog1.Filter = "文本文件|*.txt"
colog1.ShowSave
fn = colog1.FileName
s = "ok"
fontname1 = "simsun"
fontsize1 = 7
fontbold1 = "true"
fontitalic1 = "false"
backclolor1 = "red"
foreclolor1 = "blue"
underline1 = "true"
strikethru1 = "false"
Open fn For Output As #1
Write #1, s, fontname1, fontsize1, fontbold1, fontitalic1, backclolor1, foreclolor1, underline1, strikethru1
Text1 = s
Close #1
'我像这样保存了文件，但打开了却和保存的时候不一样
colog1.Filter = "文本文件|*.txt"
colog1.ShowOpen
Text1.Text = ""
fn = colog1.FileName
 
Open fn For Input As #1
  Do While Not EOF(1)
    Line Input #1, s1
    s = s & s1 & Chr(13) & Chr(10)
    Loop
Text1 = s
End Sub

关键是没有赋值.所有的全部是空.

追问

不是赋值的问题 ，我保存好了（文本编辑器），在电脑自带的文本编辑器显示的是
“123”“36”“”···“red” 这样的文字 （我保存的是36号字的“123”，红色的背景 ） 但是打开的时候还是“123”“36”“”···“red”这样
我是想问怎么该才能在我做的文本编辑器打开的时候只看到36号字的“123”还有红色背景？？

追答

我有点明白你的意思了，你是想保存带有一个36号红色的字。这是不可能的，TXT只能保存文字。

追问

我要做一个可以保存打开有背景颜色，字体颜色，字体，字号，下划线，删除线的文本编辑器， 保存TXT文本的时候（在TXT中打开是用引号“”括起来的文字，例如我只保存123这三个数字，但是它的格式什么的会有引号括起来跟在后面，但如果用我的文本编辑器打开就只是123 然后格式什么的和保存的一样，但是我的代码只能打开和电脑的文本一样的文字例如：“123”“36”“”···“red” 所以问问该怎么改

追答

有点意思，明白了。那你需要加上这一样些代码，具体的就不写了。
text1.fontsize=fontsize1
text1.fontcolore=fontcolor1
……
保存前要加，
读取后也要加

追问

有这种代码了text1.fontcolore=fontcolor1

Open fn For Input As #1
Do While Not EOF(1)
Line Input #1, s1
s = s & s1 & Chr(13) & Chr(10)
Loop
Text1 = s
这部分是读文字的吧？
背景，下划线那些需要什么代码读取？？

追答

读一行后用split分割，然后赋值就行了。
a = "a@b@c@d"
b = splite(a,"@")

结果
b(0)="a"
b(1)="b"
b(2)="c"
b(3)="d"

追问

如何定义这里的A和B呢？

追答

a就是你读出来的s，b就是一个数组名。
例：
b=splict(s,",")
text1.text=b(0)
text1.fontname=b(1)
……
顺序别弄错。

追问

运行后提示缺少数组

追答

那在最前面定义一个数组
dim b(20) as variable(不个词不太会拼了)

追问

现在是： 编译错误
不能给数组赋值

追答

把源码发我，150155942QQ