CSV process - using repeating items

Message Share Topic Printable Version Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Topic Search Topic Options Post Reply Create New Topic

If you want to ignore X lines from the script, first setup an empty field extraction above the CSV Line extraction, and name it LineCount. 
Now, modify the CSV extraction to:

Sub Main()

    Dim vbQuote As String
    Dim arr As Variant
    Dim mod_ans As Integer
    vbQuote = Chr(34)

    If Val(Fields_value("LineCount")) < 18 Then 

	       Email2DBExtract = ""
    End If

    If InStr(1, Email2DBExtract, vbQuote) > 0 Then
        arr = Split(Email2DBExtract, vbQuote)

        For idx = LBound(arr) To UBound(arr)
            If idx Mod 2 = 1 Then
               arr(idx) = Replace(arr(idx), ",", "[COMMA]")
            End If
        Next idx

        Email2DBExtract = Join(arr, "")
    End If

    If Left(Email2DBExtract, 1) = "," Then Email2DBExtract = " " & Email2DBExtract
    Do While InStr(1, Email2DBExtract, ",,") > 0
        Email2DBExtract = Replace(Email2DBExtract, ",,", ", ,")
    Loop

Fields_Value("LineCount") = Cstr(Val(Fields_value("LineCount")) + 1)
End Sub

This will send blank data in the pass to for lines up to 18.

Edited by Daniel - 17 Aug 2011 at 5:19pm