Incrementar filas con un bucle en un DTS SQL 2000

[Andres95]

Aunque es codigo Activex, se trata de un DTS...



Ok, supongo que seria algo como esto...

Código:

Function Main()

	DIM arr

	des = Trim(DTSSource("des"))


	'Considerando los campos de ejemplo, las iteraciones empiezan a partir de la posicion 8 del campo DES	
	arr = SPLIT(mid (des, 8),",")


	'' DTSGlobalVariables("ReadingID") Es una variable global para controlar las iteraciones...(no es necesario agregarla manualmente)
	
	IF Cint(DTSGlobalVariables("ReadingID").Value) <= Ubound(arr)  THEN 

		DTSDestination("code") = DTSSource("code")

		DTSDestination("des") = arr(Cint(DTSGlobalVariables("ReadingID").Value))
		
		Main = DTSTransformStat_SkipFetch  ''No realizar salto de fila origen...

		DTSGlobalVariables("ReadingID").Value = Cint(DTSGlobalVariables("ReadingID").Value) + 1 

	Else
		DTSGlobalVariables("ReadingID").Value = 0 
		Main = DTSTransformStat_SkipInsert
	End If
	


End Function

Espero te sea de utilidad...

Saludos!