求一个小程序

我有一个文本文档为1.txt ,格式如下;

Aaltje
Aarhus
Aaronson

Tynka
Tyumenia
Ucclia
Ueferji
Ueta

我想在每行的开头加一个/变为如下格式：

/Aaltje
/Aarhus
/Aaronson

/Tynka
/Tyumenia
/Ucclia
/Ueferji
/Ueta

求个批处理或者VB小程序能实现这个功能~

谢谢~

LZ您好， 文本框中的换行是两个字符chr(13) & chr(10)，编程读取其中的每一个字符，直到有换行的时候，在前边加数需要的/数量的可以了
下面的程序我已经调试通过（窗体中放置一个文本框和一个命令按钮）：
Private Sub Command1_Click()
    Dim CR As String, Strout As String, Tmp As String, I As Long
    Tmp = Text1.Text
    If Len(Tmp) < 2 Then Exit Sub
    Strout = Space(2)
    CR = Chr(13) & Chr(10)
    Do While Len(Tmp) <> 0
    I = InStr(Tmp, CR)
    If I <> 0 Then
    Strout = Strout & Left(Tmp, I + 1) & Space(2)
    Tmp = Mid(Tmp, I + 2)
    Else
    Exit Do
    End If
    Loop
    Strout = Strout & Tmp
    Text1 = Strout
End Sub

最后再送给你一个网站 http://expert.csdn.net/Expert/topic/1000/1000043.xml?temp=.2117578