Specify code snippet

fslaborg · Jul 27, 2023 · 5ed3752 · 5ed3752
1 parent 53b109c
commit 5ed3752
Showing 1 changed file with 16 additions and 34 deletions.
diff --git a/README.md b/README.md
@@ -46,40 +46,22 @@ spreadsheet.ToFile(excelFilePath)
 ## Code Examples
 
 ```fsharp
-let parseWorkbook wb =
-    let tables = getAnnotationTables wb
-    let worksheets = wb.GetWorksheets()
-    // get worksheet and its AnnotationTable as tuple
-    let worksheetsAndTables =
-        tables
-        |> List.map (
-            fun t ->
-                let associatedWs = 
-                    worksheets
-                    |> List.find (
-                        fun ws -> 
-                            ws.Tables
-                            |> List.exists (fun t2 -> t2.Name = t.Name)
-                    )
-                associatedWs, t
-        )
-    worksheetsAndTables
-    |> List.map (
-        fun (ws,t) ->
-            let headerCells = getHeaderCellsOf ws.CellCollection t |> List.ofSeq
-            let ioColumns = 
-                headerCells
-                |> List.map (parseIOColumns ws.CellCollection t)
-            let termRelatedBuildingBlocks =
-                headerCells
-                |> groupTermRelatedBuildingBlocks t ws.CellCollection
-                |> List.map (parseTermRelatedBuildingBlocks true t ws.CellCollection)
-            ws.Name,
-            {|
-                IOColumns = ioColumns
-                TermRelatedBuildingBlocks = termRelatedBuildingBlocks
-            |}
-    )
+let tables = workbook.GetTables()
+let worksheets = workbook.GetWorksheets()
+// get worksheet and its table as tuple
+let worksheetsAndTables =
+tables
+|> List.map (
+    fun t ->
+	let associatedWs = 
+	    worksheets
+	    |> List.find (
+		fun ws -> 
+		    ws.Tables
+		    |> List.exists (fun t2 -> t2.Name = t.Name)
+	    )
+	associatedWs, t
+)
 ```