Trying to create an Applecreate to rename files into folders based on filename

Question

I am trying to create an AppleScript that will take a file (a.b.c.txt forexample) and create a directory from the filename minusextensionand then move the file into that directory
ie.a.b.c>a.b.c.txt
I found this script from red_menace
{input, parameters} -- create folders from file names and move
  set output to {} -- this will be a list of the moved files
  repeat with anItem in the input -- step through each item in the input
    set {theContainer, theName, theExtension} to (getTheNames from anItem)
    try
      set destination to (makeNewFolder for theName at theContainer)
      tell application "Finder"
        move anItem to destination
        set the end of the output to the result as alias -- success
      end tell
    on error errorMessage -- duplicate name, permissions, etc
      log errorMessage
      # handle errors if desired - just skip for now
    end try
  end repeat
  return the output -- pass on the results to following actions
end run
to getTheNames from someItem -- get a container, name, and extension from a file item
  tell application "System Events" to tell disk item (someItem as text)
    set theContainer to the path of the container
    set {theName, theExtension} to {name, name extension}
  end tell
  if theExtension is not "" then
    set theName to text 1 thru -((count theExtension) + 2) of theName -- just the name part
    set theExtension to "." & theExtension
  end if
  return {theContainer, theName, theExtension}
end getTheNames
to makeNewFolder for theChild at theParent -- make a new child folder at the parent location if it doesn't already exist
  set theParent to theParent as text
  if theParent begins with "/" then set theParent to theParent as POSIX file as text
  try
    return (theParent & theChild) as alias
  on error errorMessage -- no folder
    log errorMessage
    tell application "Finder" to make new folder at theParent with properties {name:theChild}
    return the result as alias
  end try
end makeNewFolder
But my problem with this script is that it does messes up if the file name includes the period, from my example, the listed script will make directorys a, b, and c instead of a.b.c

Answer 1

You can use this Automator Workflow:
for f in "$@"
do
  d=${f%.*}
  if [ ! -d "$d" ]; then 
       mkdir "$d"
  fi
  mv "$f" "$d"
done