如何写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

先解释T

P

H：女同志族群中，“T”指特质倾向于阳刚，或外貌喜欢作男性化/中性化装扮者（“T”可能来自英文的Tomboy）；

“婆”指装扮、行为、气质阴柔的女同志（又称为P）。台湾女同志文化中的T／婆之分，相当于西方的Butch／Femme。“婆”这个词在最早是相对于T

而来，指“T的老婆”。但近年来，婆的主体性已经逐渐浮现，用以泛指气质较阴柔者；Uncle指年长的T。这个词起源于60年代，是女同志用来对长辈的尊称；“拉子”、“拉拉”或“蕾丝边”指女同性恋者（由Lesbian谐音而来），最早出现在台湾作家邱妙津的女同志小说《鳄鱼手记》里，于1990年代开始流行于台湾。

另外H

就是双性恋~

所以：HL

__

一个像男的女的和一个双性恋

谈爱

TTL——

两个像男的的女人谈爱

TPL——一个像男的的女人和一个只喜欢女人的女人谈爱··

解释完毕··

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com