[求助] 此代码表示什么功能？
Result = ""dim I,k,m
dim P,Q,R
if len(trim([excel.Gwst_Fre]))>0 then Result=Result+[excel.Gwst_Fre]+CHR(13)
if len(trim([excel.Gwst_Spa]))>0 then Result=Result+[excel.Gwst_Spa]+CHR(13)
if len(trim([excel.WN_Fre]))>0 then Result=Result+[excel.WN_Fre]+CHR(13)
if len(trim([excel.WN_Spa]))>0 then Result=Result+[excel.WN_Spa]+CHR(13)
P=0
K=0
For I=0 to len([excel.WN_Jap])-1
if (mid([excel.WN_Jap],I+1,1)=CHR(13) or K=18 ) and mid([excel.WN_Jap],I+1,1)<>"_" then
K=0
else
K=K+1
result=result+mid([excel.WN_Jap],I+1,1)
end if
if K=0 then Result=Result+CHR(10)+CHR(13)
if mid([excel.WN_Jap],I+1,1)="_" then P=1
if P=1 and mid([excel.WN_Jap],I+1,1)<>"_" then
Q=I
exit for
end if
next
K=0
for R=Q+1 to len([excel.WN_Jap])-1
if mid([excel.WN_Jap],R+1,1)=CHR(13) or K=26 then
K=0
else
K=K+1
result=result+mid([excel.WN_Jap],R+1,1)
end if
if K=0 then Result=Result+CHR(10)+CHR(13)
next
