Script for text to integer not working

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Is the script actually working at this point?I noticed your add to log action, is this showing that the item is being updated to 1 or 0?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Liam Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 29 Jun 2011 Location: Stoke-on-Trent Points: 266	Post Options Post Reply Quote Liam Report Post Thanks(0) Quote Reply Topic: Script for text to integer not working Posted: 09 Jun 2020 at 9:36am
	Is the script actually working at this point? I noticed your add to log action, is this showing that the item is being updated to 1 or 0?

bickell Members Profile Send Private Message Find Members Posts Add to Buddy List New User Joined: 11 Jun 2007 Location: Kansas City, MO Points: 37	Post Options Post Reply Quote bickell Report Post Thanks(0) Quote Reply Posted: 04 Feb 2020 at 1:29pm
	Also tried the following, but still can't get the database field to update to 1. Sub Main() ' commands start here 'ThinkAutomationExtract = ThinkAutomationExtract Dim PreviousASIString As String Dim prevASIBit As Integer PreviousASIString = ThinkAutomationMessage.ExtractedFields("PreviousASI").Value Call AddToLog("Extracted field value: " & PreviousASIString) Select Case PreviousASIString Case "Yes" prevASIBit = 1 Case "No" prevASIBit = 0 End Select ThinkAutomationExtract = prevASIBit Call AddToLog("Converted field value: " & ThinkAutomationExtract) End Sub

bickell Members Profile Send Private Message Find Members Posts Add to Buddy List New User Joined: 11 Jun 2007 Location: Kansas City, MO Points: 37	Post Options Post Reply Quote bickell Report Post Thanks(0) Quote Reply Posted: 04 Feb 2020 at 12:52pm
	I set up the following script to convert a field that comes in as text (either "Yes or "No") to a value of 1 or 0 so that it can be written to a bit (boolean) field in MS SQL. The script does not work as written and I am not sure what I have done wrong. When the value is "Yes" in the email, the database field that is mapped to this extracted value is being written as 0. Sub Main() ' commands start here ThinkAutomationExtract = ThinkAutomationExtract Dim PreviousASIString As String Dim prevASIBit As Integer PreviousASIString = ThinkAutomationExtract Select Case PreviousASIString Case "Yes" prevASIBit = 1 Case "No" prevASIBit = 0 End Select ThinkAutomationExtract = prevASIBit End Sub Any help would be appreciated.