11/25/2015 - 3:08 AM

CSV Validate Punctuation and Spacing

CSV Validate Punctuation and Spacing

Attribute VB_Name = "VOTD_CSVParser"
Option Explicit

Sub ValidatePunctuation_Spacing()

    Dim VOTDTextArray(0 To 370) As Variant
    Dim position As Integer
    Dim VOTDText As String
    'loop over the VOTDText columns starting at 0
    position = 0
    Do While ActiveCell.Value <> ""
        VOTDTextArray(position) = ActiveCell.Value
        ActiveCell.Offset(1, 0).Activate
        position = position + 1
End Sub

Public Function IsPunctuation(ByRef arr() As String)
    Dim intPos As Integer
    For intPos = 1 To Len(strValue)
        Select Case Asc(Mid(strValue, intPos, 1))
            Case 33 To 47, 58 To 63 'Checks for ASCII punctuation characters
                IsPunctuation = True
            Case Else
                IsPunctuation = False
                Exit For
        End Select
End Function