'如果模板里的分隔符"," "=" 什么的能固定功能的话~
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
'代码写的很啰嗦~也没调试过~凑合看一下吧~
温馨提示:答案为网友推荐,仅供参考