My current project has me creating yet another data mart using Microsoft Dynamics (a CRM solution) as the source. I have nearly 200 tables each having up to several hundred columns.

Unfortunately, the table and column names are a concatenation of words with no capitalization.

So, in order to help me build some documentation, and eventually the SQL for the data mart, I need to turn the gibberish into something the team (and our users) can easily read.

For example, I want to have a function to work like this:

strSeparateWords["fourscoreandsevenyearsago", {"four", "score", 
  "seven", "and", "seven", "years", "ago"}, "Capitalize" -> True]

to return:

"Four Score And Seven Years Ago"

While I was able to write such a function, I cannot help but think that there is a better (more Wolfram-like) solution.

Here is my solution:

Options[strSeparateWords] = {
   "Capitalize" -> False
   };

strSeparateWords[string_String, word_String, opt : OptionsPattern[]] := 
  Module[
   {
    replacement = If[OptionValue["Capitalize"], Capitalize[word], word]
   },
   StringTrim@StringReplace[string, word -> " " <> replacement]
   ];

strSeparateWords[string_String, words_?matchListOfStringsQ, 
   opt : OptionsPattern[]] := Module[
   {
    retVal = string
    },
   Do[
    retVal = strSeparateWords[retVal, word, opt]
    ,
    {word, words}
    ];
   retVal
   ];

I was hoping to find a function similar to Fold[] that works with single argument functions. In other words, I want a function that worked like this:

anotherFold[
 f[initialValue, #] &,
 { a, b, c}
 ]

would return:

f[f[f[initialValue, a], b], c]

As you can see, I cannot even figure out a good name for such a function. But I think it would be useful to have a generic function like this.

I've searched the documentation and web for over an hour now. But, before giving up, I wanted to ask the Community.

Thanks, and have a great weekend.