Detecting the space character

[JN]

Hi All,

I am trying to detect the space character in a string but my code is not
working.

Thanks for your help.
JN

sub demo()

Dim strlength As Integer
Dim str As String

str = "good morning"

strlength = Len(Trim(str))

For i = 1 To strlength
If Mid(str, i, strlength) = Chr(32) Then
MsgBox "space"
End If
Next i

End Sub

[Dave Peterson]

If Mid(str, i, strlength)
should be
If Mid(str, i, 1)

Start in position i for 1 character.

JN wrote:
>
> Hi All,
>
> I am trying to detect the space character in a string but my code is not
> working.
>
> Thanks for your help.
> JN
>
> sub demo()
>
> Dim strlength As Integer
> Dim str As String
>
> str = "good morning"
>
> strlength = Len(Trim(str))
>
> For i = 1 To strlength
> If Mid(str, i, strlength) = Chr(32) Then
> MsgBox "space"
> End If
> Next i
>
> End Sub

--

Dave Peterson

[JE McGimpsey]

One way:

Const str As String = "good morning"
Dim nPos As Long
nPos = InStr(str, " ")
If nPos Then Msgbox "space at character " & nPos

In article <[email protected]>,
"JN" <[email protected]> wrote:

> Hi All,
>
> I am trying to detect the space character in a string but my code is not
> working.
>
> Thanks for your help.
> JN
>
> sub demo()
>
> Dim strlength As Integer
> Dim str As String
>
> str = "good morning"
>
> strlength = Len(Trim(str))
>
> For i = 1 To strlength
> If Mid(str, i, strlength) = Chr(32) Then
> MsgBox "space"
> End If
> Next i
>
> End Sub

[JN]

Thanks for your replies...it is now working.

"JN" <[email protected]> wrote in message
news:[email protected]...
> Hi All,
>
> I am trying to detect the space character in a string but my code is not
> working.
>
> Thanks for your help.
> JN
>
> sub demo()
>
> Dim strlength As Integer
> Dim str As String
>
> str = "good morning"
>
> strlength = Len(Trim(str))
>
> For i = 1 To strlength
> If Mid(str, i, strlength) = Chr(32) Then
> MsgBox "space"
> End If
> Next i
>
> End Sub
>

[Tim Williams]

Why not use Instr() ?

In any case, maybe you could try
....
If Mid(str, i, 1) = Chr(32) Then
....

Tim

--
Tim Williams
Palo Alto, CA


"JN" <[email protected]> wrote in message
news:[email protected]...
> Hi All,
>
> I am trying to detect the space character in a string but my code is not
> working.
>
> Thanks for your help.
> JN
>
> sub demo()
>
> Dim strlength As Integer
> Dim str As String
>
> str = "good morning"
>
> strlength = Len(Trim(str))
>
> For i = 1 To strlength
> If Mid(str, i, strlength) = Chr(32) Then
> MsgBox "space"
> End If
> Next i
>
> End Sub
>
>