用vb.net怎么输出只读的txt文件。

[dante4ever]

小弟接触vb。net不久，想用txt文件输出一个数组的数据，假如数组是array（3），想用以下形式输出
a=array（0）
b=array（1）
c=array（2）
其中的数组元素array（）都是数组中的具体数值。
请问哪位高手能帮忙简单写下代码吗？感激不尽。

[xixihaha_2011_098]

输入完毕，把TXT文件的属性改成只读不就行了

System.IO.File.SetAttributes(路径 + 文件名, FileAttributes.Hidden);

[xixihaha_2011_098]

输出完毕。呵呵

[QQRN]

将
a=array（0）
b=array（1）
c=array（2）
处理成字符串
"a=array（0）"
"b=array（1）"
"c=array（2）"
然后输出到文件

[极地_雪狼]

这和只读有关系吗？

streamwriter 不就可以吗？

记得引用System.IO;

[兔子-顾问]

System.IO.File.AppendText(array(0).ToString())
System.IO.File.AppendText(array(1).ToString())
System.IO.File.AppendText(array(2).ToString())

[dante4ever]

[Quote=引用 1 楼 falconfei 的回复:]
这和只读有关系吗？

streamwriter 不就可以吗？

记得引用System.IO;
[/Quote]
就是我想把这个数组用这种格式输出，刚接触vb.net不久，只知道一些基本的，不太明白streamwriter，所以想问问这种文件输出怎么写。

[dante4ever]

[Quote=引用 2 楼 wuyazhe 的回复:]
System.IO.File.AppendText(array(0).ToString())
System.IO.File.AppendText(array(1).ToString())
System.IO.File.AppendText(array(2).ToString())
[/Quote]
这个是把数组里的元素和字符建立连接吧？其他的代码也不是太懂，关于输出只读类型的txt文件的，比如输出到d盘。

[wuyq11]

dim arr() as string={"a","b"}
File.WriteAllLines("",arr)

[dante4ever]

[Quote=引用 5 楼 wuyq11 的回复:]
dim arr() as string={"a","b"}
File.WriteAllLines("",arr)
[/Quote]
哦！我没说明确，我的意思是a，b，c是变量，在输出文件时写成这种格式
a=array（0）
b=array（1）
c=array（2）

[思考]

Imports System.IO

Dim sw As StreamWriter
Dim fs As FileStream

fs = New FileStream("c:\1.txt", FileMode.Create)
sw = New StreamWriter(fs, System.Text.Encoding.Default)
sw.WriteLine(a)
sw.WriteLine(b)
sw.WriteLine(c)
sw.Close()

[Tosp2012]

 Imports System.IO
 Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim array(3) As String
        Array(0) = "Happy"
        array(1) = "New"
        array(2) = "Year"


        Dim Fs As IO.FileStream
        Dim WriteLine As IO.StreamWriter

        Fs = New FileStream("..\test.txt", FileMode.Create)
        WriteLine = New StreamWriter(Fs)
        WriteLine.WriteLine("a=" & array(0))
        WriteLine.WriteLine("b=" & array(1))
        WriteLine.WriteLine("c=" & array(2))
        WriteLine.Close()
    End Sub

test.txt文件結果為
a=Happy
b=New
c=Year