Find Spaces in String URGENT HELP Needed !

[Chance1234]

Its monday is all i can say im trying to strip out postal codes from fields in my Access DB, trouble is the postal codes are all different lengths

here is the code i have but its not working :-(

'----------- --------------------------------------------PO BOX Fields----------------
If ChkCnt <> 9 Then
If Left(StRflDs(ChkCnt), 2) = &quot;PO&quot; Then

PosChk = InStr(8, &quot; &quot;, StRflDs(ChkCnt), vbTextCompare)

StRflDs(9) = Left(StRflDs(ChkCnt), PosChk + 1)
StRflDs(ChkCnt) = Right(StRflDs(ChkCnt), Len(StRflDs(ChkCnt) - PosChk))
End If
End If

 

[GBall]

incode = left(postcode,instr(postcode, &quot; &quot - 1)
outcode = mid(postcode,instr(postcode, &quot; &quot + 1)

 

[Aivars]

?Join(Split(&quot;Test Of String Rewriting&quot, &quot;&quot
TestOfStringRewriting

Aivars

 

[Chance1234]

got my instr function the wrong way around in the end

 

[Chance1234]

problem sorted i got my instr function the wrong way around in the end

 

[MichaelRed]

Yes, BUT you are probably making this more complicated than it shoulda/woulda/coulda be.

If YOU are discussing U.S. postal codes, they only come in two flavors. Five digit and Nine digit. Problem solved? Just loop through the &quot;postal code&quot; field regardless of length and extraneous 'stuffffffff'. The first five chars which are numeric are the basic postal code. If there are four more, they are the &quot;+Four&quot; part.
Assuming that [StRflDs] is the field for the postal code & 'Stufffffffffff':

Public Function basStripZip(Postal As String) As String

    'Usage/Example
    '? basStripZip("P.O. 21044-3091HaHaHa")
    '21044-3091



    Dim Idx As Integer                  'String Index/counter
    Dim MyZip As String                 'Holding place for the 5 Digit Zip
    Dim MyPlus4 As String               'Holding place for the +4 Zip
    Dim strTemp4 As String              'Conditional for the +4 part
    Dim strTemp5 As String              'Conditional for the Zip Code

    For Idx = 1 To Len(Postal)          'Walk the string for each Char
        MyChr = Mid(Postal, Idx, 1)     'Extract Char at Position
        If (IsNumeric(MyChr)) Then      'Check for numeric
            If (Len(MyZip) < 5) Then    'See if we are sitll in 5 digit zion
                MyZip = MyZip & MyChr   'Add to 5 digit
             Else
                MyPlus4 = MyPlus4 & MyChr   'Or the +4 part
            End If
        End If
    Next Idx

    If (Len(MyZip) = 5) Then                'Check for at LEAST the BASIC
        strTemp5 = MyZip                    'If &quot;O.K.&quot; then stuff for output/return
    End If
End Function

MichaelRed
m.red@att.net

There is never time to do it right but there is always time to do it over