Need help with script

[stash]

Hey guys I have a list of serial numbers that start off with a "S" character that I need to remove with a script. The tricky thing is that I only need to remove the "S" that shows up second in the serial number. Does anyone have any ideas or a script that could help?

Thanks

Example:

Before script
SER-NO SC02H706NDJGR
SER-NO SC02H707PDJGR
SER-NO SC02H708YDJGR
SER-NO SC02H79TBDJGR

After script
SER-NO C02H706NDJGR
SER-NO C02H707PDJGR
SER-NO C02H708YDJGR
SER-NO C02H79TBDJGR

[NovaScotian]

Quote: Originally Posted by stash Hey guys I have a list of serial numbers that start off with a "S" character that I need to remove with a script. The tricky thing is that I only need to remove the "S" that shows up second in the serial number. Does anyone have any ideas or a script that could help? Thanks Example: Before script SER-NO SC02H706NDJGR SER-NO SC02H707PDJGR SER-NO SC02H708YDJGR SER-NO SC02H79TBDJGR After script SER-NO C02H706NDJGR SER-NO C02H707PDJGR SER-NO C02H708YDJGR SER-NO C02H79TBDJGR

set BeforeScript to {"SER-NO SC02H706NDJGR", "SER-NO SC02H706NDJGR", "SER-NO SC02H708YDJGR", "SER-NO SC02H79TBDJGR"}

set c to count BeforeScript

set AfterScript to {}



set tid to AppleScript's text item delimiters

set AppleScript's text item delimiters to "S"

tell BeforeScript

	repeat with k from 1 to c

		set tPart to text item 3 of item k

		set end of AfterScript to "SER-NO " & tPart

	end repeat

end tell

set AppleScript's text item delimiters to tid

--> {"SER-NO C02H706NDJGR", "SER-NO C02H706NDJGR", "SER-NO C02H708YDJGR", "SER-NO C02H79TBDJGR"}

[sojourner]

Assuming you have a file containing those serial numbers you want to convert (and only those serial numbers you want to convert)...

set listSerialNums to paragraphs of (read (choose file))

set numFileIdNewSerialNums to open for access ((path to desktop folder as string) & "corrected serial numbers" & space & (random number from 1 to 1000) & ".txt") with write permission

repeat with textSerialNum in listSerialNums
	if textSerialNum ≠ "" then
		set textCorrectedSerialNum to text 2 thru -1 of (word 3 of textSerialNum)
		write (textCorrectedSerialNum & return) to numFileIdNewSerialNums as text
	end if
end repeat

close access numFileIdNewSerialNums