1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
For j = LBound(Ar) To UBound(Ar)
testStr = Ar(j)
testStr = Trim(testStr)
If testStr = "NULL" Then testStr = ""
If testStr <> "$" Then
ReDim Preserve TabTmp(UBound(Tb), iMaxColTabTmp)
If bConcatData Then
TabTmp(indexLigneTabTmp, indexcolonneTabTmp) = TabTmp(indexLigneTabTmp, indexcolonneTabTmp) & testStr
bConcatData = False
Else
TabTmp(indexLigneTabTmp, indexcolonneTabTmp) = testStr
End If
indexcolonneTabTmp = indexcolonneTabTmp + 1
If indexcolonneTabTmp > iMaxColTabTmp Then iMaxColTabTmp = indexcolonneTabTmp
End If
Next j |
Partager