|
|
|
|
// Learn more about F# at http://fsharp.org
|
|
|
|
|
// See the 'F# Tutorial' project for more help.
|
|
|
|
|
|
|
|
|
|
#load "SystemServices.fs"
|
|
|
|
|
#load "DataAccess.fs"
|
|
|
|
|
#load "DataCleaning.fs"
|
|
|
|
|
#load "DataProcessing.fs"
|
|
|
|
|
#load "DataStructuring.fs"
|
|
|
|
|
#load "DataServices.fs"
|
|
|
|
|
#load "ProductServices.fs"
|
|
|
|
|
|
|
|
|
|
open SystemServices
|
|
|
|
|
open DataAccess
|
|
|
|
|
open DataCleaning
|
|
|
|
|
|
|
|
|
|
// System Services
|
|
|
|
|
let ss_number = PickRandomNumber 10
|
|
|
|
|
|
|
|
|
|
// Data Access
|
|
|
|
|
let da_sampleFilePath = CreateSampleTextFilesPath
|
|
|
|
|
let da_sampleTextFiles = FindSampleTextFiles da_sampleFilePath
|
|
|
|
|
let da_sampleFiles = ListSampleFiles
|
|
|
|
|
let da_randomSampleFile = SelectRandomSampleFile
|
|
|
|
|
let da_file = LoadFile da_randomSampleFile
|
|
|
|
|
|
|
|
|
|
// Data Cleaning
|
|
|
|
|
let dc_replace1 = ReplaceArtiface "\"" "dc_repl1 \" end."
|
|
|
|
|
let dc_replace2 = ReplaceArtiface "\n\nIn" "dc_repl2 \n\nIn end."
|
|
|
|
|
let dc_replace3 = ReplaceArtiface "\r" "dc_repl3 \r end."
|
|
|
|
|
let dc_replace4 = ReplaceArtiface "\n" "dc_repl4 \n end."
|
|
|
|
|
let dc_replace5 =
|
|
|
|
|
let testPath = "a1 \" a2 \n\nIn a3 \r a4 \n end."
|
|
|
|
|
testPath
|
|
|
|
|
|> ReplaceArtiface "\""
|
|
|
|
|
|> ReplaceArtiface "\n\nIn"
|
|
|
|
|
|> ReplaceArtiface "\r"
|
|
|
|
|
|> ReplaceArtiface "\n"
|
