[AccessD] how to split text into its letters...

David McAfee davidmcafee at gmail.com
Sat Jul 25 16:23:15 CDT 2015


 something like this should work

Public Function SeparateChars(strIn As String) As String
   Dim strOut As String, i As Integer
   For i = 1 To Len(strIn)
      Select Case Mid(strIn, i, 1)
        Case " ", "|"  'Characters that you want to ignore go here
        Case Else
            strOut = strOut + Mid(strIn, i, 1) & ","
       End Select
      'i = i + 1
     Next i
    SeparateChars = strOut
End Function



End Function

On Sat, Jul 25, 2015 at 10:08 AM, Kostas Konstantinidis <kost36 at otenet.gr>
wrote:

> hi,
> In a field there text values, something like 1234-5679(1678)68:3;1-
> What I need is to split text with every character separate by a comma e.g.
> 1,2,3,4,-,.......,-
>
> Is that possible via query?
>
> thank's
> /kostas
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


More information about the AccessD mailing list