Comparing Strings

[David]

Thank you for your response. I changed it to:

If Cstr(EmotionPerceived) = Cstr(c.GetAttrib("Emotion")) Then
    NameEmotion.ACC = 1

Else
	NameEmotion.ACC = 0

End If

And still no luck. If it helps, please see below for my complete
inline:

Thanks again,

David

Dim EmotionPerceived As String

If NameEmotion.RESP = "p" Then Goto jump1

If c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 1 And c.GetAttrib ("Label1")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 2 And c.GetAttrib ("Label2")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 3 And c.GetAttrib ("Label3")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 4 And c.GetAttrib ("Label4")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 5 And c.GetAttrib ("Label5")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 6 And c.GetAttrib ("Label6")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7") =
c.GetAttrib ("Text1") Then
c.SetAttrib "EmotionPerceived", "Anger"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text2") Then
c.SetAttrib "EmotionPerceived", "Sad"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text3") Then
c.SetAttrib "EmotionPerceived", "Surprise"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text4") Then
c.SetAttrib "EmotionPerceived", "Disgust"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text5") Then
c.SetAttrib "EmotionPerceived", "Neutral"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text6") Then
c.SetAttrib "EmotionPerceived", "Happy"
ElseIf c.GetAttrib ("NameEmotion.Resp") = 7 And c.GetAttrib ("Label7")
= c.GetAttrib ("Text7") Then
c.SetAttrib "EmotionPerceived", "Fear"
End If

If Cstr(EmotionPerceived) = Cstr(c.GetAttrib("Emotion")) Then
    NameEmotion.ACC = 1

Else
	NameEmotion.ACC = 0

End If

On Aug 5, 11:24 am, "Helen Tibboel" <hftibb... at gmail.com> wrote:
> Hello,
> Are you sure that both strings are actually read as strings? You can convert
> an expression using the "CStr" function.
> Kind regards,
> Helen
>
> On 8/5/08, David <ddiod... at gmail.com> wrote:
>
>
>
>
>
> > Hello,
>
> > I am trying to compare two strings, and mark correct answers as 1 and
> > incorrect as 0. This is my inline:
>
> > If EmotionPerceived = c.GetAttrib("Emotion") Then
> >    NameEmotion.ACC = 1
>
> > Else
> >        NameEmotion.ACC = 0
>
> > End If
>
> > I have a similar inline in a different eprime and it seems to work
> > fine. It is almost like this one doesn't even register. It compiles
> > fine, but does not change the NameEmotion.ACC value in the edat file.
>
> > Any help is much appreciated,
>
> > David
>
> --
> "I had a beautiful signature in those days, intricate, oriental, illegible,
> with a mighty slashing underscore, a signature more complex than that of the
> great Hackmuth."
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en
-~----------~----~----~----~------~----~------~--~---