Question

VB按照模板输出TXT文档

图中为数据库表,输出txt文本,格式为ZZZ:M=AA,N=BB,P=CC
问题补充：输出的TXT文档内容为
ZZZ:M=a,N=b,P=c
ZZZ:M=d,N=e,P=f
可不可以做成一个模板,按照模板格式输出,模板可以随时改动,不用去修改代码
怎么用VB来实现,还请各位大侠不吝赐教.

Answer 1

'如果模板里的分隔符"," "=" 什么的能固定功能的话~

dim TempString as string
dim TempSplitStr1() as string
dim TempSplitStr2() as string
dim TempSplitStr3() as string

dim OutputString as string

dim R as integer
dim C as integer

'伪代码:读模板,写入TempString----> ZZZ:M=AA,N=BB,P=CC,Q=DD
'既TempString="ZZZ:M=AA,N=BB,P=CC,Q=DD"

'然后
TempSplitStr1=split(TempString,":")'分成ZZZ和M=AA,N=BB,P=CC,Q=DD两部分
TempSplitStr2=split(TempSplitStr1(1),",")'分成M=AA和N=BB和P=CC和Q=DD四部分

do until RS.eof

OutputString=OutputString & "ZZZ:"

for C = 0 to Ubound(TempSplitStr2)
TempSplitStr3=split(TempSplitStr2(C),"=")'M=AA分成M和AA,N=BB分成N和BB,P=CC分成P和CC,Q=DD分成Q和DD
OutputString=OutputString & TempSplitStr3(0) & "=" & RS.Fields(TempSplitStr3(1)) & ","
next

OutputString=left(OutputString,len(OutputString)-1)'每次循环结束,结尾处会多一个",",在这里T一下吧~ ^^

OutputString=OutputString & vbnewline'换行~

RS.movenext

loop

debug.print OutputString

'代码写的很啰嗦~也没调试过~凑合看一下吧~