diff --git a/AstConv/HtmlStruct.fs b/AstConv/HtmlStruct.fs index 063a5f6..228f2a6 100644 --- a/AstConv/HtmlStruct.fs +++ b/AstConv/HtmlStruct.fs @@ -3,7 +3,6 @@ open AstAccess open System.Xml open System -open System.Xml.Linq open System.IO /// 展现节点 ========================================================================================= @@ -1072,7 +1071,7 @@ open System.IO | :? AstImport.SliceDef as defs -> let points = defs.children()|> List.filter(fun d -> not(d :? AstImport.TextItem)) match points with - | [] -> [] + | [] -> slice_combine(items.Tail) | _ -> (points.Head, points.Item(points.Length-1))::slice_combine(items.Tail) | :? AstImport.StoryDef as defs -> diff --git a/AstConv/Properties/launchSettings.json b/AstConv/Properties/launchSettings.json index 79fd873..fe1ae1c 100644 --- a/AstConv/Properties/launchSettings.json +++ b/AstConv/Properties/launchSettings.json @@ -2,7 +2,7 @@ "profiles": { "AstConv": { "commandName": "Project", - "commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/diro\"" + "commandLineArgs": "-file \"E:/storyline.xast\" -odir \"E:/\"" } } } \ No newline at end of file