pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change name of mark_down_from_table, create min spacing of 3

Browse Source
This commit is contained in:
Paul Trowbridge 2017-09-27 12:55:58 -04:00
parent 12e466714f
commit 7c746f7e62
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
FL.bas
View File

@ -584,9 +584,10 @@ End Sub
Sub markdown_from_table() Sub markdown_from_selection()
Dim wapi As New Windows_API Dim wapi As New Windows_API
Dim x As New TheBigOne
Dim tbl() As Variant Dim tbl() As Variant
@ -611,13 +612,13 @@ Sub markdown_from_table()
If r = 2 Then If r = 2 Then
md = md & "|" md = md & "|"
For c = 1 To UBound(tbl, 2) For c = 1 To UBound(tbl, 2)
md = md & "---" & String(msl(c) - 3, "-") & "|" md = md & "---" & String(x.MISCe_MaxInt(msl(c), 3) - 3, "-") & "|"
Next c Next c
md = md & vbCrLf md = md & vbCrLf
End If End If
md = md & "|" md = md & "|"
For c = 1 To UBound(tbl, 2) For c = 1 To UBound(tbl, 2)
md = md & tbl(r, c) & String(msl(c) - Len(tbl(r, c)), " ") & "|" md = md & tbl(r, c) & String(x.MISCe_MaxInt(3, msl(c) - Len(tbl(r, c))), " ") & "|"
Next c Next c
md = md & vbCrLf md = md & vbCrLf
Next r Next r