CLS
BREAK ON
; PURPOSE - remove first and last char from a string
$TestStr='AzzyTest'
;Starting with
?$TestStr
;Remove First Char
$EndStr=RIGHT($TestStr,LEN($TestStr)-1)
;Check the Result
?$EndStr
;Remove the Last Char
$StartStr=LEFT($EndStr,LEN($EndStr)-1)
;Check the Result
?$StartStr

Sleep 2

 



  

Break on



Open (1,"C:\temp\pclist.txt")

Do

 	$ComLine = ReadLine(1)

	$Compname = SubStr($comLine,1,8)

	$compname = Trim($compname)

	

	

$Fish = Len("$compname")

	 		

$Bob = SubStr($compname,2,$Fish)	 		



$bb=Left($bob,Len($bob)-1)



?$bb



Sleep 2



Until $Compname=""  



 

$s='"This is a quoted string"'
$s=Split($s,Left($s,1))[1]
 
$s ?