How to sort files with similar filenames into discrete folders? (AppleScript)

Here is my take on the AppleScript and the results. Assumption is that the current folder is what is selected in Finder before the script runs.

Before:

After:

Code:

set DELIM to {".dbf", ".prj", ".", ":"}

tell application "Finder"
	-- assumption: selection is a Finder selected containing folder of the items
	set selected to selection
	set current_folder to (first item of selected) as text as alias
	set mlist to (sort (every item of folder current_folder) by name) as alias list
	
	set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, DELIM}
	if mlist is {} then return
	repeat with this_file in mlist
		-- the DELIM guarantees that this item is the basename without extension
		set basename to text item -2 of (this_file as text)
		-- avoids duplicate folder name collisions
		if not (exists folder ((current_folder as text) & basename)) is true then
			set new_folder to make new folder at current_folder with properties {name:basename}
		end if
		move (this_file as text) to new_folder
	end repeat
	set AppleScript's text item delimiters to TID
end tell
return



add log statements to figure it out.

(* 

It is easier to diagnose problems with debug information. I suggest adding log statements to your script to see what is going on.  Here is an example.


	Author: rccharles
	
	For testing, run in the Script Editor.
	  1) Click on the Event Log tab to see the output from the log statement
	  2) Click on Run
	  
	For running shell commands see:
	https://developer.apple.com/library/archive/technotes/tn2065/_index.html
	http://developer.apple.com/mac/library/technotes/tn2002/tn2065.html
	


 *)


on run
	-- Write a message into the event log.
	log "  --- Starting on " & ((current date) as string) & " --- "
	--  debug lines
	
	
	set desktopPath to path to home folder
	set unixDesktopPath to POSIX path of desktopPath
	log "unixDesktopPath = " & unixDesktopPath
	
	set quotedUnixDesktopPath to quoted form of unixDesktopPath
	log "quoted form is " & quotedUnixDesktopPath
	
	try
		set fromUnix to do shell script "ls -l  " & quotedUnixDesktopPath
		display dialog "ls -l of " & quotedUnixDesktopPath & return & fromUnix
	on error errMsg
		log "ls -l error..." & errMsg
	end try
	
end run

You are welcome.