如何写tpl文件

Dim i As Long, hs() As String, filename As String，bb() As String, fhz As Long, j As Long
'下面是读文件的代码：
Open App.Path & "\1.tpl" For Input As #1
'将读取的数据，存放到数组hs()中，数组中的每个元素存储一行
Do While Not EOF(1)
ReDim Preserve hs(i)
Line Input #1, hs(i)
i = i + 1
Loop
Close #1
'如果每行间的字符用一个空格来分开，下面这句就是将每行的数据存放到一个数组bb()里,bb的每个元素存储每行中的一个元素，然后用一个aa数组存储这个文件的所有项。
For i = 0 To UBound(hs)
bb = Split(hs(i), " ")
For j = 0 To UBound(bb)
fhz = UBound(aa)
ReDim Preserve aa(fhz + 1)
aa(fhz + 1) = bb(j)
Next j
next i

'向这个文件写数据就简单了
for i=0 to ubound(aa)
filename = filename & aa(i) & " "
next i
Open App.Path & "\1.tpl" For Output As #1
Seek #1, 1
Print #1, filename
Close #1

tbl文件格式是，最左边是行号，然后用|分隔每个属性
0|属性|属性|
1| | |
2| | |
3| | |
4|｜|
.
.
.<