AutoEpub3/Logic/DEP2/cDep2_007.vb (diff)| @@ -5,6 +5,7 @@ | ||
| 5 | 5 | |
| 6 | 6 | Dim bookPath As String |
| 7 | 7 | Dim emCurreDep As emEpub6.emDep |
| 8 | + Dim iSpanIndex As Integer = 0 | |
| 8 | 9 | |
| 9 | 10 | Public mEpub As New List(Of modelVolume) |
| 10 | 11 |
| @@ -191,7 +192,16 @@ | ||
| 191 | 192 | Dim sScr As String = uHap.Attributes("href").Value |
| 192 | 193 | |
| 193 | 194 | If sScr.Split("#").Count = 2 Then |
| 194 | - sHtml = sHtml.Replace(sScr, "#" & sScr.Split("#")(1)) | |
| 195 | + | |
| 196 | + Dim sKey As String = sScr.Split("#")(1) | |
| 197 | + sHtml = sHtml.Replace(sScr, "#" & sKey) | |
| 198 | + | |
| 199 | + iSpanIndex += 1 | |
| 200 | + | |
| 201 | + sHtml = sHtml.Replace(sKey, sKey & "_" & iSpanIndex.ToString().PadLeft(2, "0")) | |
| 202 | + | |
| 203 | + | |
| 204 | + | |
| 195 | 205 | Else |
| 196 | 206 | Dim sError As String = "" |
| 197 | 207 | End If |
