CSVsubsetSplit method enhanced

Author: ws-garcia

docs/api/methods/csvsubsetsplit.md

@@ -64,11 +64,6 @@ Splits the CSV data into a set of files in which each piece has a related portio
 
 The `CSVsubsetSplit` method will create a file for each different value (data grouping) in the fields at the *subsetColumns* position, then all related data is appended to the respective file. Use the *headers* parameter to include a header record in each new CSV file. The *subsetColumns* parameter can be a single value or an array of `Long` values.  When the CSV file has a header record and the user sets the *header* parameter to `False`, the header row is saved in a separate file and the rest of CSV files will have no header record. The user can control when to include the headers by using the *repeatHeaders* parameter.
 
->⚠️**Caution**
->{: .text-grey-lt-000 .bg-green-000 }
->The user shall verify that when subdividing a CSV file using a text field/column there are no records with special characters not supported by the file system of the operating system.
-{: .text-grey-dk-300 .bg-yellow-000 }
-
 >📝**Note**
 >{: .text-grey-lt-000 .bg-green-000 }
 >The result subsets will be saved in a folder named [\*-WorkDir], where (\*) denotes the name of the source CSV file.

src/Access_version.zip

@@ -407,7 +407,7 @@ Public Function CSVsubsetSplit(filePath As String, _
             curItems.Sort i + 1, sortingKeys:=subsetColumns
             RaiseEvent AfterSort
             tmpVar = JoinKeys(curItems, subsetColumns, i)
-            writterConf.path = OutputPath & CStr(tmpVar) & "." & FExtension
+            writterConf.path = ReplaceIllegalCharacters(OutputPath & CStr(tmpVar) & "." & FExtension, "_")
             If Headers Then
                 '@----------------------------------------------------
                 'Check directory
@@ -2918,6 +2918,17 @@ OutOfBounds_RemoveRecords:
                     Description:="The specified index is out of bounds. Please check and try again."
     Resume ErrHandler_RemoveRecords
 End Function
+Private Function ReplaceIllegalCharacters(strIn As String, strChar As String) As String
+    Dim strSpecialChars As String
+    Dim i As Long
+    strSpecialChars = "~""#%&*:<>?{|}/\[]" & Chr(10) & Chr(13)
+
+    For i = 1 To Len(strSpecialChars)
+        strIn = Replace(strIn, Mid$(strSpecialChars, i, 1), strChar)
+    Next
+
+    ReplaceIllegalCharacters = strIn
+End Function
 Private Function RequestedField(ByVal fieldIndex As Long, _
                                 ByVal mxReq As Long) As Boolean
     Select Case RequestedFieldsArray(0)