Implemented the file processing logic for default sample files.

WetPancake/Assistants.fs

@@ -1,11 +0,0 @@
-module internal Assistants
-
-    open System
-    open System.IO
-    open System.Text.RegularExpressions
-
-    let CountSampleTextFiles =
-        let path = __SOURCE_DIRECTORY__ + "\TextFiles"
-        Directory.GetFiles(path, ".txt", SearchOption.TopDirectoryOnly).Length
-
-    let MakeTestPath = ""

WetPancake/CoOrdinator.fs

@@ -1,5 +1,8 @@
 module internal CoOrdinator
 
+    open FileProcessing
+    open TextProcessing
+
     let GenerateRandomText = 0;
 
     let GenerateText gibberishLevel sentences = 0;

WetPancake/FileProcessing.fs

@@ -0,0 +1,25 @@
+module internal FileProcessing
+
+    open System
+    open System.IO
+
+    let CreateSampleTextFilesPath = __SOURCE_DIRECTORY__ + "\\TextFiles\\"
+
+    let FindSampleTextFiles path =
+        Directory.GetFiles(path, "*", SearchOption.TopDirectoryOnly)
+
+    let ListSampleFiles =
+        CreateSampleTextFilesPath
+        |> FindSampleTextFiles
+
+    let SelectRandomSampleFile =
+        let files = ListSampleFiles
+        files.[Random().Next(0, files.Length)]
+
+    let LoadFile path =
+        File.ReadAllText(path)
+            .Replace("\"", " ")
+            .Replace("\n\nIn", " ")
+            .Replace("\r", " ")
+            .Replace("\n", " ")
+            .Replace("  ", " ")

WetPancake/Specialists.fs

@@ -1,2 +0,0 @@
-module internal Specialists
-

WetPancake/Textprocessing.fs

@@ -0,0 +1,3 @@
+module internal TextProcessing
+
+    open FileProcessing

WetPancake/WetPancake.fsproj

@@ -54,8 +54,8 @@
     <Content Include="TextFiles\desktop-clock-info.txt" />
     <Content Include="TextFiles\console-waterworks-announcement.txt" />
     <Compile Include="AssemblyInfo.fs" />
-    <Compile Include="Assistants.fs" />
-    <Compile Include="Specialists.fs" />
+    <Compile Include="FileProcessing.fs" />
+    <Compile Include="Textprocessing.fs" />
     <Compile Include="CoOrdinator.fs" />
     <Compile Include="WetPancake.fs" />
     <None Include="Script.fsx" />

WetPancakeCLI/ConsoleCommands.cs

@@ -35,5 +35,10 @@ namespace WetPancakeCLI
             var result = PancakeWetter.RequestRandomText;
             return "Not implemented yet.";
         }
+
+        public static string test1()
+        {
+            return "This is a text method for quickly testing things out";
+        }
     }
 }