Comparing Strings

[David]

That did it! Thanks very much.

On Aug 5, 11:53 am, "Susan G. Campbell" <scampb... at casl.umd.edu>
wrote:
> Hi David,
>
> I think you'll want to use c.GetAttrib("EmotionPerceived") rather than
> EmotionPerceived in your logical test there -- it looks like you're
> setting an attribute in those earlier if statements, not assigning a
> variable.
>
> HTH,
> Susan
>
> -----Original Message-----
> From: e-prime at googlegroups.com [mailto:e-prime at googlegroups.com] On
>
> Behalf Of David
> Sent: Tuesday, August 05, 2008 11:38 AM
> To: E-Prime
> Subject: Re: Comparing Strings
>
> 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
-~----------~----~----~----~------~----~------~--~---