Instantly share code, notes, and snippets.

Embed
What would you like to do?
open System
let getLastDirectory (filePath:string) =
let lastSlashPosition = filePath.LastIndexOf(char 47)
let totalLength = filePath.Length
let tokenLength = totalLength - lastSlashPosition - 1
filePath.Substring(lastSlashPosition+1,tokenLength)
let subDirectoryInfos (path:string) =
let baseDirectoryInfo = System.IO.DirectoryInfo(path)
let subDirectoryInfos = baseDirectoryInfo.GetDirectories()
subDirectoryInfos
let getResources path =
subDirectoryInfos path
|> Array.collect(fun sdi -> sdi.GetFiles())
|> Array.map(fun f -> "Images\\" + getLastDirectory f.DirectoryName + "\\" + f.Name)
let getLogicalNames path =
subDirectoryInfos path
|> Array.collect(fun sdi -> sdi.GetFiles())
|> Array.map(fun f -> f.Name)
|> Array.map(fun n -> n.ToLowerInvariant())
|> Array.map(fun n -> n.Replace(".jpeg",String.Empty))
|> Array.map(fun n -> n.Replace("_",String.Empty))
let createBlock (resource:string) (logicalName:string)=
"<EmbeddedResource Include=\"" + resource + "\"><LogicalName>" + logicalName + "</LogicalName></EmbeddedResource>"
let getOutput path =
let resources = getResources path
let logicalNames = getLogicalNames path
resources
|> Array.zip logicalNames
|> Array.map(fun (r,ln) -> createBlock ln r)
|> Array.map(fun s -> " " + s)
let directoryName = "Images"
let inputPath = "//Users//jamesdixon//Desktop//" + directoryName
let output = getOutput inputPath
let fileName = directoryName + ".txt"
let outputPath = "//Users//jamesdixon//Desktop//" + fileName
System.IO.File.WriteAllLines(outputPath, output)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment