印刷前にメモ帳のページ数を取得しようとしていますが、
メモ帳をwordwrap=true, FontSize=12, MarginRight=750, MarginLeft=750, MarginTop=1000, MarginBottom=1000,
70
ページが 1 に等しい場合、ページの列数が行数よりも大きい1 and 51
。
それは機能していますが、私が持っている式にいくつかの間違いがあり、いくつかのメモ帳ページはOKですが、一部はそうではありません.
誰かが私が持っているコードを修正できることを願っています。
または、メモ帳の設定が変更された場合でも、これを実行するための適切なコードはありますか。メモ帳のページを取得する適切な方法がない場合、少なくとも誰かが私が持っているコードを修正できます。
ありがとう。
Private Function GetNotepadNumPage(ByVal filename as string) as Integer
Dim sr As New StreamReader(filename)
Dim line As String = sr.ReadLine
Dim CharL(9999) As Integer
Dim pCount As Integer = 0
Dim pLine As Integer = 0
Do While Not sr.EndOfStream
line = sr.ReadLine()
CharL(pLine) = line.Length
pLine += 1
If pLine = 51 Then
pCount += 1
For i As Integer = 0 To pLine
If CharL(i) > 70 Then
pCount += 1
Exit For
End If
Next
pLine = 0
End If
Loop
sr.Close()
If (pLine <> 0) Then
pCount += 1
For i As Integer = 0 To pLine
If CharL(i) > 70 Then
pCount += 1
Exit For
End If
Next
End If
pagecount = pCount
Return pagecount
End Function