Renamed subShowBasicData to subShowText.

This commit is contained in:
依瑪貓 2017-05-05 11:02:34 +08:00
parent a463624c4d
commit bf3bb31f05

View File

@ -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