* When calculating the IVs of several Pokémons, now the calculator will reuse a same spreadsheet document, even the same spreadsheet when there is already a spreadsheet for that Pokémon. Previously it will start a new spreadsheet document for each calculation. This helps when calculating a bunch of Pokémons at the same time.
* Advanced to version 0.8.0.
This commit is contained in:
parent
d2b3d26dca
commit
787acb12bf
@ -54,6 +54,23 @@ Type aFindIVParam
|
||||
bIsCancelled As Boolean
|
||||
End Type
|
||||
|
||||
Sub subGetPokemonSheet
|
||||
Dim oDoc As Object
|
||||
Dim oEnum As Object, oComponent As Object, sTitles As String
|
||||
|
||||
oDoc = fnCreateNewSpreadsheetDocument
|
||||
oDoc.setTitle ("Pokemon GO IV")
|
||||
oEnum = StarDesktop.getComponents.createEnumeration
|
||||
Do While oEnum.hasMoreElements
|
||||
oComponent = oEnum.nextElement
|
||||
If oComponent.supportsService ("com.sun.star.sheet.SpreadsheetDocument") Then
|
||||
If oComponent.getTitle = "Pokemon GO IV" Then
|
||||
Xray oComponent
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
' subCreateReport: Creates the Pokémon GO IV report.
|
||||
Sub subCreateReport ( _
|
||||
aBaseStats As aStats, aQuery As aFindIVParam, maIVs () As aIV)
|
||||
@ -67,13 +84,12 @@ Sub subCreateReport ( _
|
||||
Dim sColIVAttack As String, sColIVDefense As String
|
||||
Dim sColIVStamina As String
|
||||
Dim sPokemonName As String
|
||||
Dim mData (Ubound (maIVs) + 1) As Variant, mRow () As Variant
|
||||
Dim mLeadHead () As Variant, nStartRow As Integer
|
||||
Dim mData (0) As Variant, mRow () As Variant
|
||||
Dim maEvBaseStats () As Variant
|
||||
Dim mProps () As New com.sun.star.beans.PropertyValue
|
||||
|
||||
oDoc = StarDesktop.loadComponentFromURL ( _
|
||||
"private:factory/scalc", "_default", 0, mProps)
|
||||
oSheet = oDoc.getSheets.getByIndex (0)
|
||||
oSheet = fnFindPokemonGOIVSheet (aQuery.sPokemonName)
|
||||
|
||||
nEvolved = UBound (aBaseStats.mEvolved) + 1
|
||||
If nEvolved > 0 Then
|
||||
@ -96,8 +112,8 @@ Sub subCreateReport ( _
|
||||
' Sorts the IVs
|
||||
subSortIVs (aBaseStats, maEvBaseStats, maIVs, fMaxLevel)
|
||||
|
||||
' Fills in the report data.
|
||||
mRow = Array ( _
|
||||
' Gathers the header row.
|
||||
mLeadHead = Array ( _
|
||||
fnGetResString ("ReportNo"), _
|
||||
fnGetResString ("ReportPokemon"), _
|
||||
fnGetResString ("ReportCP"), _
|
||||
@ -108,8 +124,10 @@ Sub subCreateReport ( _
|
||||
fnGetResString ("ReportDefense"), _
|
||||
fnGetResString ("ReportStamina"), _
|
||||
fnGetResString ("ReportIVPercent"))
|
||||
nLeadCols = UBound (mRow) + 1
|
||||
nLeadCols = UBound (mLeadHead) + 1
|
||||
|
||||
' Calculating how many columns do we need to fill in the
|
||||
' CP of the evolved forms.
|
||||
nTotalCols = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
nTotalCols = nTotalCols + 1
|
||||
@ -121,17 +139,25 @@ Sub subCreateReport ( _
|
||||
End If
|
||||
Next nJ
|
||||
|
||||
' Adds the header row if this is a new spreadsheet
|
||||
oCell = oSheet.getCellByPosition (0, 0)
|
||||
If oCell.getString = "" Then
|
||||
' The leading columns of the header row
|
||||
mRow = mLeadHead
|
||||
' Fill in the header row with the CP of the evolved forms.
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
mRow (nCol) = fnReplace (fnGetResString ("ReportCPPowerUp"), _
|
||||
mRow (nCol) = fnReplace ( _
|
||||
fnGetResString ("ReportCPPowerUp"), _
|
||||
"[Level]", fMaxLevel)
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
sPokemonName = fnGetResString ( _
|
||||
"Pokemon" & aBaseStats.mEvolved (nJ))
|
||||
mRow (nCol) = fnReplace (fnGetResString ("ReportCPEvolve"), _
|
||||
mRow (nCol) = fnReplace ( _
|
||||
fnGetResString ("ReportCPEvolve"), _
|
||||
"[Pokémon]", sPokemonName)
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
@ -142,111 +168,24 @@ Sub subCreateReport ( _
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
|
||||
' Fills in the header row
|
||||
ReDim mData (0) As Variant
|
||||
mData (0) = mRow
|
||||
|
||||
For nI = 0 To UBound (maIVs)
|
||||
mRow = Array ( _
|
||||
"", "", "", "", "", _
|
||||
maIVs (nI).fLevel, maIVs (nI).nAttack, _
|
||||
maIVs (nI).nDefense, maIVs (nI).nStamina, "")
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
For nJ = nLeadCols To nEvolved - 1
|
||||
mRow (nJ) = ""
|
||||
Next nJ
|
||||
mData (nI + 1) = mRow
|
||||
Next nI
|
||||
|
||||
' Fills the query information at the first row
|
||||
mData (1) (0) = aBaseStats.sNo
|
||||
mData (1) (1) = aQuery.sPokemonName
|
||||
mData (1) (2) = aQuery.nCP
|
||||
mData (1) (3) = aQuery.nHP
|
||||
mData (1) (4) = aQuery.nStardust
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, 0, UBound (mData (0)), UBound (mData))
|
||||
oRange.setDataArray (mData)
|
||||
oRange.setPropertyValue ("VertJustify", _
|
||||
com.sun.star.table.CellVertJustify.TOP)
|
||||
|
||||
' Fills in the CP calculation.
|
||||
For nI = 0 To UBound (maIVs)
|
||||
sCPM = fnGetCPMFormula (maIVs (nI).fLevel)
|
||||
sColIVAttack = "G" & (nI + 2)
|
||||
sColIVDefense = "H" & (nI + 2)
|
||||
sColIVStamina = "I" & (nI + 2)
|
||||
|
||||
oCell = oSheet.getCellByPosition (nLeadCols - 1, nI + 1)
|
||||
sFormula = "=(" & sColIVAttack & "+" & sColIVDefense _
|
||||
& "+" & sColIVStamina & ")/45"
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (aBaseStats, _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, _
|
||||
sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ( _
|
||||
"FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ( _
|
||||
"FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
Next nI
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, 1, 0, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
1, 1, 1, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
2, 1, 2, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
3, 1, 3, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
4, 1, 4, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
9, 1, 9, UBound (mData))
|
||||
oRange.setPropertyValue ("NumberFormat", 10)
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
nLeadCols, 0, nTotalCols - 1, 0)
|
||||
oRange.setPropertyValue ("IsTextWrapped", True)
|
||||
|
||||
' Sets the height of the header row
|
||||
oRows = oSheet.getRows
|
||||
oRows.getByIndex (0).setPropertyValue ("OptimalHeight", True)
|
||||
|
||||
' Sets the widths of the columns
|
||||
oColumns = oSheet.getColumns
|
||||
oColumns.getByIndex (0).setPropertyValue ("Width", 890)
|
||||
oColumns.getByIndex (1).setPropertyValue ("Width", 2310)
|
||||
@ -262,8 +201,120 @@ Sub subCreateReport ( _
|
||||
oColumns.getByIndex (nJ).setPropertyValue ( _
|
||||
"Width", 2500)
|
||||
Next nJ
|
||||
oRows = oSheet.getRows
|
||||
oRows.getByIndex (0).setPropertyValue ("OptimalHeight", True)
|
||||
|
||||
nStartRow = 1
|
||||
|
||||
' Append to the end on an existing spreadsheet
|
||||
Else
|
||||
nStartRow = 0
|
||||
Do
|
||||
nStartRow = nStartRow + 1
|
||||
oCell = oSheet.getCellByPosition (5, nStartRow)
|
||||
Loop While oCell.getString <> ""
|
||||
End If
|
||||
|
||||
' Gathers the data rows.
|
||||
ReDim mData (Ubound (maIVs)) As Variant
|
||||
For nI = 0 To UBound (maIVs)
|
||||
mRow = Array ( _
|
||||
"", "", "", "", "", _
|
||||
maIVs (nI).fLevel, maIVs (nI).nAttack, _
|
||||
maIVs (nI).nDefense, maIVs (nI).nStamina, "")
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
For nJ = nLeadCols To nEvolved - 1
|
||||
mRow (nJ) = ""
|
||||
Next nJ
|
||||
mData (nI) = mRow
|
||||
Next nI
|
||||
|
||||
' Fills the query information at the first row
|
||||
mData (0) (0) = aBaseStats.sNo
|
||||
mData (0) (1) = aQuery.sPokemonName
|
||||
mData (0) (2) = aQuery.nCP
|
||||
mData (0) (3) = aQuery.nHP
|
||||
mData (0) (4) = aQuery.nStardust
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, nStartRow, _
|
||||
UBound (mData (0)), nStartRow + UBound (mData))
|
||||
oRange.setDataArray (mData)
|
||||
oRange.setPropertyValue ("VertJustify", _
|
||||
com.sun.star.table.CellVertJustify.TOP)
|
||||
|
||||
' Fills in the CP calculation.
|
||||
For nI = 0 To UBound (maIVs)
|
||||
sCPM = fnGetCPMFormula (maIVs (nI).fLevel)
|
||||
sColIVAttack = "G" & (nI + 2)
|
||||
sColIVDefense = "H" & (nI + 2)
|
||||
sColIVStamina = "I" & (nI + 2)
|
||||
|
||||
oCell = oSheet.getCellByPosition (nLeadCols - 1, nStartRow + nI)
|
||||
sFormula = "=(" & sColIVAttack & "+" & sColIVDefense _
|
||||
& "+" & sColIVStamina & ")/45"
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (aBaseStats, _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, _
|
||||
sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ( _
|
||||
"FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ( _
|
||||
"FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
Next nI
|
||||
|
||||
' Merge the lead cells.
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, nStartRow, 0, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
1, nStartRow, 1, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
2, nStartRow, 2, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
3, nStartRow, 3, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
4, nStartRow, 4, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
9, nStartRow, 9, nStartRow + UBound (mData))
|
||||
oRange.setPropertyValue ("NumberFormat", 10)
|
||||
End Sub
|
||||
|
||||
' subSortIVs: Sorts the IVs
|
||||
@ -400,3 +451,67 @@ Function fnGetCPMFormula (fLevel As Double) As String
|
||||
& "+POWER(" & mCPM (fLevel + 0.5) & ";2))/2)"
|
||||
End If
|
||||
End Function
|
||||
|
||||
' fnFindPokemonGOIVSheet: Finds the existing sheet for the result.
|
||||
Function fnFindPokemonGOIVSheet (sPokemon As String) As Object
|
||||
Dim oDoc As Object, sDocTitle As String
|
||||
Dim oSheets As Object, nCount As Integer, oSheet As Object
|
||||
Dim mNames () As String, nI As Integer
|
||||
Dim mProps () As New com.sun.star.beans.PropertyValue
|
||||
|
||||
sDocTitle = "Pokémon GO IV"
|
||||
oDoc = fnFindDocByTitle (sDocTitle)
|
||||
If IsNull (oDoc) Then
|
||||
oDoc = StarDesktop.loadComponentFromURL ( _
|
||||
"private:factory/scalc", "_default", 0, mProps)
|
||||
oDoc.setTitle (sDocTitle)
|
||||
oSheets = oDoc.getSheets
|
||||
mNames = oSheets.getElementNames
|
||||
oSheets.insertNewByName (sPokemon, 0)
|
||||
oSheet = oSheets.getByName (sPokemon)
|
||||
For nI = 0 To UBound (mNames)
|
||||
oSheets.removeByName (mNames (nI))
|
||||
Next nI
|
||||
Else
|
||||
oSheet = fnFindSheetByName (oDoc, sPokemon)
|
||||
If IsNull (oSheet) Then
|
||||
oSheets = oDoc.getSheets
|
||||
nCount = oSheets.getCount
|
||||
oSheets.insertNewByName (sPokemon, nCount)
|
||||
oSheet = oSheets.getByName (sPokemon)
|
||||
End If
|
||||
oDoc.getCurrentController.setActiveSheet (oSheet)
|
||||
End If
|
||||
fnFindPokemonGOIVSheet = oSheet
|
||||
End Function
|
||||
|
||||
' fnFindDocByTitle: Finds the document by its title.
|
||||
Function fnFindDocByTitle (sTitle) As Object
|
||||
Dim oEnum As Object, oDoc As Object
|
||||
|
||||
oEnum = StarDesktop.getComponents.createEnumeration
|
||||
Do While oEnum.hasMoreElements
|
||||
oDoc = oEnum.nextElement
|
||||
If oDoc.supportsService ( _
|
||||
"com.sun.star.sheet.SpreadsheetDocument") Then
|
||||
If oDoc.getTitle = sTitle Then
|
||||
fnFindDocByTitle = oDoc
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Function
|
||||
|
||||
' fnFindSheetByName: Finds the spreadsheet by its name
|
||||
Function fnFindSheetByName (oDoc As Object, sName As String) As Object
|
||||
Dim oSheets As Object, mNames () As String, nI As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sName Then
|
||||
fnFindSheetByName = oSheets.getByIndex (nI)
|
||||
Exit Function
|
||||
End If
|
||||
Next nI
|
||||
End Function
|
||||
|
||||
@ -2,8 +2,8 @@
|
||||
<description xmlns="http://openoffice.org/extensions/update/2006"
|
||||
xmlns:xlink="http://www.w3.org/1999/xlink">
|
||||
<identifier value="tw.idv.imacat.office.pokemongoiv" />
|
||||
<version value="0.7.8" />
|
||||
<version value="0.8.0" />
|
||||
<update-download>
|
||||
<src xlink:href="https://sourceforge.net/projects/aoo-extensions/files/18585/26/pokemongoiv.oxt" />
|
||||
<src xlink:href="https://sourceforge.net/projects/aoo-extensions/files/18585/27/pokemongoiv.oxt" />
|
||||
</update-download>
|
||||
</description>
|
||||
|
||||
@ -56,6 +56,23 @@ Type aFindIVParam
|
||||
bIsCancelled As Boolean
|
||||
End Type
|
||||
|
||||
Sub subGetPokemonSheet
|
||||
Dim oDoc As Object
|
||||
Dim oEnum As Object, oComponent As Object, sTitles As String
|
||||
|
||||
oDoc = fnCreateNewSpreadsheetDocument
|
||||
oDoc.setTitle ("Pokemon GO IV")
|
||||
oEnum = StarDesktop.getComponents.createEnumeration
|
||||
Do While oEnum.hasMoreElements
|
||||
oComponent = oEnum.nextElement
|
||||
If oComponent.supportsService ("com.sun.star.sheet.SpreadsheetDocument") Then
|
||||
If oComponent.getTitle = "Pokemon GO IV" Then
|
||||
Xray oComponent
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
' subCreateReport: Creates the Pokémon GO IV report.
|
||||
Sub subCreateReport ( _
|
||||
aBaseStats As aStats, aQuery As aFindIVParam, maIVs () As aIV)
|
||||
@ -69,13 +86,12 @@ Sub subCreateReport ( _
|
||||
Dim sColIVAttack As String, sColIVDefense As String
|
||||
Dim sColIVStamina As String
|
||||
Dim sPokemonName As String
|
||||
Dim mData (Ubound (maIVs) + 1) As Variant, mRow () As Variant
|
||||
Dim mLeadHead () As Variant, nStartRow As Integer
|
||||
Dim mData (0) As Variant, mRow () As Variant
|
||||
Dim maEvBaseStats () As Variant
|
||||
Dim mProps () As New com.sun.star.beans.PropertyValue
|
||||
|
||||
oDoc = StarDesktop.loadComponentFromURL ( _
|
||||
"private:factory/scalc", "_default", 0, mProps)
|
||||
oSheet = oDoc.getSheets.getByIndex (0)
|
||||
oSheet = fnFindPokemonGOIVSheet (aQuery.sPokemonName)
|
||||
|
||||
nEvolved = UBound (aBaseStats.mEvolved) + 1
|
||||
If nEvolved > 0 Then
|
||||
@ -98,8 +114,8 @@ Sub subCreateReport ( _
|
||||
' Sorts the IVs
|
||||
subSortIVs (aBaseStats, maEvBaseStats, maIVs, fMaxLevel)
|
||||
|
||||
' Fills in the report data.
|
||||
mRow = Array ( _
|
||||
' Gathers the header row.
|
||||
mLeadHead = Array ( _
|
||||
fnGetResString ("ReportNo"), _
|
||||
fnGetResString ("ReportPokemon"), _
|
||||
fnGetResString ("ReportCP"), _
|
||||
@ -110,8 +126,10 @@ Sub subCreateReport ( _
|
||||
fnGetResString ("ReportDefense"), _
|
||||
fnGetResString ("ReportStamina"), _
|
||||
fnGetResString ("ReportIVPercent"))
|
||||
nLeadCols = UBound (mRow) + 1
|
||||
nLeadCols = UBound (mLeadHead) + 1
|
||||
|
||||
' Calculating how many columns do we need to fill in the
|
||||
' CP of the evolved forms.
|
||||
nTotalCols = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
nTotalCols = nTotalCols + 1
|
||||
@ -123,17 +141,25 @@ Sub subCreateReport ( _
|
||||
End If
|
||||
Next nJ
|
||||
|
||||
' Adds the header row if this is a new spreadsheet
|
||||
oCell = oSheet.getCellByPosition (0, 0)
|
||||
If oCell.getString = "" Then
|
||||
' The leading columns of the header row
|
||||
mRow = mLeadHead
|
||||
' Fill in the header row with the CP of the evolved forms.
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
mRow (nCol) = fnReplace (fnGetResString ("ReportCPPowerUp"), _
|
||||
mRow (nCol) = fnReplace ( _
|
||||
fnGetResString ("ReportCPPowerUp"), _
|
||||
"[Level]", fMaxLevel)
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
sPokemonName = fnGetResString ( _
|
||||
"Pokemon" & aBaseStats.mEvolved (nJ))
|
||||
mRow (nCol) = fnReplace (fnGetResString ("ReportCPEvolve"), _
|
||||
mRow (nCol) = fnReplace ( _
|
||||
fnGetResString ("ReportCPEvolve"), _
|
||||
"[Pokémon]", sPokemonName)
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
@ -144,111 +170,24 @@ Sub subCreateReport ( _
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
|
||||
' Fills in the header row
|
||||
ReDim mData (0) As Variant
|
||||
mData (0) = mRow
|
||||
|
||||
For nI = 0 To UBound (maIVs)
|
||||
mRow = Array ( _
|
||||
"", "", "", "", "", _
|
||||
maIVs (nI).fLevel, maIVs (nI).nAttack, _
|
||||
maIVs (nI).nDefense, maIVs (nI).nStamina, "")
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
For nJ = nLeadCols To nEvolved - 1
|
||||
mRow (nJ) = ""
|
||||
Next nJ
|
||||
mData (nI + 1) = mRow
|
||||
Next nI
|
||||
|
||||
' Fills the query information at the first row
|
||||
mData (1) (0) = aBaseStats.sNo
|
||||
mData (1) (1) = aQuery.sPokemonName
|
||||
mData (1) (2) = aQuery.nCP
|
||||
mData (1) (3) = aQuery.nHP
|
||||
mData (1) (4) = aQuery.nStardust
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, 0, UBound (mData (0)), UBound (mData))
|
||||
oRange.setDataArray (mData)
|
||||
oRange.setPropertyValue ("VertJustify", _
|
||||
com.sun.star.table.CellVertJustify.TOP)
|
||||
|
||||
' Fills in the CP calculation.
|
||||
For nI = 0 To UBound (maIVs)
|
||||
sCPM = fnGetCPMFormula (maIVs (nI).fLevel)
|
||||
sColIVAttack = "G" & (nI + 2)
|
||||
sColIVDefense = "H" & (nI + 2)
|
||||
sColIVStamina = "I" & (nI + 2)
|
||||
|
||||
oCell = oSheet.getCellByPosition (nLeadCols - 1, nI + 1)
|
||||
sFormula = "=(" & sColIVAttack & "+" & sColIVDefense _
|
||||
& "+" & sColIVStamina & ")/45"
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (aBaseStats, _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nI + 1)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, _
|
||||
sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ( _
|
||||
"FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ( _
|
||||
"FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
Next nI
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, 1, 0, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
1, 1, 1, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
2, 1, 2, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
3, 1, 3, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
4, 1, 4, UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
9, 1, 9, UBound (mData))
|
||||
oRange.setPropertyValue ("NumberFormat", 10)
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
nLeadCols, 0, nTotalCols - 1, 0)
|
||||
oRange.setPropertyValue ("IsTextWrapped", True)
|
||||
|
||||
' Sets the height of the header row
|
||||
oRows = oSheet.getRows
|
||||
oRows.getByIndex (0).setPropertyValue ("OptimalHeight", True)
|
||||
|
||||
' Sets the widths of the columns
|
||||
oColumns = oSheet.getColumns
|
||||
oColumns.getByIndex (0).setPropertyValue ("Width", 890)
|
||||
oColumns.getByIndex (1).setPropertyValue ("Width", 2310)
|
||||
@ -264,8 +203,120 @@ Sub subCreateReport ( _
|
||||
oColumns.getByIndex (nJ).setPropertyValue ( _
|
||||
"Width", 2500)
|
||||
Next nJ
|
||||
oRows = oSheet.getRows
|
||||
oRows.getByIndex (0).setPropertyValue ("OptimalHeight", True)
|
||||
|
||||
nStartRow = 1
|
||||
|
||||
' Append to the end on an existing spreadsheet
|
||||
Else
|
||||
nStartRow = 0
|
||||
Do
|
||||
nStartRow = nStartRow + 1
|
||||
oCell = oSheet.getCellByPosition (5, nStartRow)
|
||||
Loop While oCell.getString <> ""
|
||||
End If
|
||||
|
||||
' Gathers the data rows.
|
||||
ReDim mData (Ubound (maIVs)) As Variant
|
||||
For nI = 0 To UBound (maIVs)
|
||||
mRow = Array ( _
|
||||
"", "", "", "", "", _
|
||||
maIVs (nI).fLevel, maIVs (nI).nAttack, _
|
||||
maIVs (nI).nDefense, maIVs (nI).nStamina, "")
|
||||
ReDim Preserve mRow (nTotalCols - 1) As Variant
|
||||
For nJ = nLeadCols To nEvolved - 1
|
||||
mRow (nJ) = ""
|
||||
Next nJ
|
||||
mData (nI) = mRow
|
||||
Next nI
|
||||
|
||||
' Fills the query information at the first row
|
||||
mData (0) (0) = aBaseStats.sNo
|
||||
mData (0) (1) = aQuery.sPokemonName
|
||||
mData (0) (2) = aQuery.nCP
|
||||
mData (0) (3) = aQuery.nHP
|
||||
mData (0) (4) = aQuery.nStardust
|
||||
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, nStartRow, _
|
||||
UBound (mData (0)), nStartRow + UBound (mData))
|
||||
oRange.setDataArray (mData)
|
||||
oRange.setPropertyValue ("VertJustify", _
|
||||
com.sun.star.table.CellVertJustify.TOP)
|
||||
|
||||
' Fills in the CP calculation.
|
||||
For nI = 0 To UBound (maIVs)
|
||||
sCPM = fnGetCPMFormula (maIVs (nI).fLevel)
|
||||
sColIVAttack = "G" & (nI + 2)
|
||||
sColIVDefense = "H" & (nI + 2)
|
||||
sColIVStamina = "I" & (nI + 2)
|
||||
|
||||
oCell = oSheet.getCellByPosition (nLeadCols - 1, nStartRow + nI)
|
||||
sFormula = "=(" & sColIVAttack & "+" & sColIVDefense _
|
||||
& "+" & sColIVStamina & ")/45"
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
|
||||
nCol = nLeadCols
|
||||
If aBaseStats.bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (aBaseStats, _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
For nJ = 0 To nEvolved - 1
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, sColIVStamina, sCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ("FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ("FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
If maEvBaseStats (nJ).bIsLastForm Then
|
||||
oCell = oSheet.getCellByPosition (nCol, nStartRow + nI)
|
||||
sFormula = fnGetCPFormula (maEvBaseStats (nJ), _
|
||||
sColIVAttack, sColIVDefense, _
|
||||
sColIVStamina, sMaxCPM)
|
||||
oCell.setFormula (sFormula)
|
||||
sFormulaLocal = oCell.getPropertyValue ( _
|
||||
"FormulaLocal")
|
||||
If sFormulaLocal <> sFormula Then
|
||||
oCell.setPropertyValue ( _
|
||||
"FormulaLocal", sFormulaLocal)
|
||||
End If
|
||||
nCol = nCol + 1
|
||||
End If
|
||||
Next nJ
|
||||
Next nI
|
||||
|
||||
' Merge the lead cells.
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
0, nStartRow, 0, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
1, nStartRow, 1, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
2, nStartRow, 2, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
3, nStartRow, 3, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
4, nStartRow, 4, nStartRow + UBound (mData))
|
||||
oRange.merge (True)
|
||||
oRange = oSheet.getCellRangeByPosition ( _
|
||||
9, nStartRow, 9, nStartRow + UBound (mData))
|
||||
oRange.setPropertyValue ("NumberFormat", 10)
|
||||
End Sub
|
||||
|
||||
' subSortIVs: Sorts the IVs
|
||||
@ -402,4 +453,68 @@ Function fnGetCPMFormula (fLevel As Double) As String
|
||||
& "+POWER(" & mCPM (fLevel + 0.5) & ";2))/2)"
|
||||
End If
|
||||
End Function
|
||||
|
||||
' fnFindPokemonGOIVSheet: Finds the existing sheet for the result.
|
||||
Function fnFindPokemonGOIVSheet (sPokemon As String) As Object
|
||||
Dim oDoc As Object, sDocTitle As String
|
||||
Dim oSheets As Object, nCount As Integer, oSheet As Object
|
||||
Dim mNames () As String, nI As Integer
|
||||
Dim mProps () As New com.sun.star.beans.PropertyValue
|
||||
|
||||
sDocTitle = "Pokémon GO IV"
|
||||
oDoc = fnFindDocByTitle (sDocTitle)
|
||||
If IsNull (oDoc) Then
|
||||
oDoc = StarDesktop.loadComponentFromURL ( _
|
||||
"private:factory/scalc", "_default", 0, mProps)
|
||||
oDoc.setTitle (sDocTitle)
|
||||
oSheets = oDoc.getSheets
|
||||
mNames = oSheets.getElementNames
|
||||
oSheets.insertNewByName (sPokemon, 0)
|
||||
oSheet = oSheets.getByName (sPokemon)
|
||||
For nI = 0 To UBound (mNames)
|
||||
oSheets.removeByName (mNames (nI))
|
||||
Next nI
|
||||
Else
|
||||
oSheet = fnFindSheetByName (oDoc, sPokemon)
|
||||
If IsNull (oSheet) Then
|
||||
oSheets = oDoc.getSheets
|
||||
nCount = oSheets.getCount
|
||||
oSheets.insertNewByName (sPokemon, nCount)
|
||||
oSheet = oSheets.getByName (sPokemon)
|
||||
End If
|
||||
oDoc.getCurrentController.setActiveSheet (oSheet)
|
||||
End If
|
||||
fnFindPokemonGOIVSheet = oSheet
|
||||
End Function
|
||||
|
||||
' fnFindDocByTitle: Finds the document by its title.
|
||||
Function fnFindDocByTitle (sTitle) As Object
|
||||
Dim oEnum As Object, oDoc As Object
|
||||
|
||||
oEnum = StarDesktop.getComponents.createEnumeration
|
||||
Do While oEnum.hasMoreElements
|
||||
oDoc = oEnum.nextElement
|
||||
If oDoc.supportsService ( _
|
||||
"com.sun.star.sheet.SpreadsheetDocument") Then
|
||||
If oDoc.getTitle = sTitle Then
|
||||
fnFindDocByTitle = oDoc
|
||||
Exit Function
|
||||
End If
|
||||
End If
|
||||
Loop
|
||||
End Function
|
||||
|
||||
' fnFindSheetByName: Finds the spreadsheet by its name
|
||||
Function fnFindSheetByName (oDoc As Object, sName As String) As Object
|
||||
Dim oSheets As Object, mNames () As String, nI As Integer
|
||||
|
||||
oSheets = oDoc.getSheets
|
||||
mNames = oSheets.getElementNames
|
||||
For nI = 0 To UBound (mNames)
|
||||
If mNames (nI) = sName Then
|
||||
fnFindSheetByName = oSheets.getByIndex (nI)
|
||||
Exit Function
|
||||
End If
|
||||
Next nI
|
||||
End Function
|
||||
</script:module>
|
||||
Loading…
Reference in New Issue
Block a user