Renamed subShowBasicData to subShowText.
This commit is contained in:
parent
a463624c4d
commit
bf3bb31f05
@ -45,11 +45,11 @@ Sub subReadDataSheets
|
|||||||
sOutput = sOutput & Chr (10) & Chr (10) & fnReadBaseStatsSheet
|
sOutput = sOutput & Chr (10) & Chr (10) & fnReadBaseStatsSheet
|
||||||
sOutput = sOutput & Chr (10) & Chr (10) & fnReadCPMSheet
|
sOutput = sOutput & Chr (10) & Chr (10) & fnReadCPMSheet
|
||||||
sOutput = sOutput & Chr (10) & Chr (10) & fnReadStardustSheet
|
sOutput = sOutput & Chr (10) & Chr (10) & fnReadStardustSheet
|
||||||
subShowBasicData (sOutput)
|
subShowText (sOutput)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
' subShowBasicData: Shows the data table as Basic arrays
|
' subShowText: Shows the text in a text box for copy and paste.
|
||||||
Sub subShowBasicData (sContent As String)
|
Sub subShowText (sContent As String)
|
||||||
Dim oDialog As Object, oDialogModel As Object
|
Dim oDialog As Object, oDialogModel As Object
|
||||||
Dim oEditModel As Object, oButtonModel As Object
|
Dim oEditModel As Object, oButtonModel As Object
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user