C# と VB.NET の質問掲示板

■No25682 (渋木宏明(ひどり) さん) に返信
>>特に、今回のStackOverflowExceptionは、VS2003(VB)+.NET1.1ならtry〜catchとif文でも発生した経験があるので、> > int Hoge
> {
>   get { return this.Hoge; }
> }
> 
> みたいなウッカリ系の場合じゃなくて？

違いますね。
Try
  If hoge = xxx Then Exit Sub
Catch ex As Exception
  hogehoge
End Try
のように、If文を1行で書いた場合に発生してました。
MSにも報告してfixされたので現在はないと思いますが、最新でない場合はSPを適用するのが良いかと。

■No25701 (長月葵 さん) に返信
> 　どういった形で再帰処理をしてますか？
> 　そのもののソースではなくてよいのでこんな感じと言うコードを示してもらえると答えやすいです。


最終的には、下記のような数字の組み合わせを表示する
プログラムを作成しています。(多い場合は、５千行以上)
-------------------------------------------------
 1
 1 - 2
 1 - 2 - 3
 1 - 2 - 3 - 4
 1 - 2 - 3 - 5
 1 - 3
 1 - 3 - 4
 2
-------------------------------------------------
    大分省略しましたが、こんな感じです。
    PubTreeTblというDataTableに値が格納されている
    PubClaimBodyに結果を書込み(実際は、下記ソースにてDataTableに値を保存している。)

    Private Sub MakeOutPut()
        ' ************************************************************************
        '   機能：  出力用DataTable作成(PubSenteTreeTbl)
        ' ************************************************************************
        For rowCnt As Integer = 0 To PubTreeTbl.Rows.Count - 1
            ' No取得
            PubClaimNo = PubTreeTbl.Rows(rowCnt).Item("No")
            If PubTreeTbl.Rows(rowCnt).Item("Flg") = True Then
                ' 最大桁数によって、左側にスペースを追加
                PubClaimBody = PubTreeTbl.Rows(rowCnt).Item("No").ToString.PadLeft(MaxFigure)
                Call ClaimReflexive(rowCnt)
            End If
        Next
    End Sub

    Private Sub ClaimReflexive(ByVal rowCnt As Integer)
        ' ************************************************************************
        '   機能：  再帰処理
        ' ************************************************************************
        Dim ClaimArray() As String = Split(PubTreeTbl.Rows(rowCnt).Item("List"), ",")
        If ClaimArray.Length >= PubAryPos(rowCnt) Then
            If ClaimArray(PubAryPos(rowCnt) - 1) <> "" Then
                ' クレームNo取得
                PubSubClaimNo = Integer.Parse(ClaimArray(PubAryPos(rowCnt) - 1))
                PubClaimBody += "-" & PubSubClaimNo.ToString.PadLeft(MaxFigure)
            Else
                ' ツリーの値が取れなかった場合
                If ClaimBeforeReflexive(rowCnt) = False Then
                    Exit Sub
                End If
            End If
        Else
            ' ツリーの値が取れなかった場合
            If ClaimBeforeReflexive(rowCnt) = False Then
                Exit Sub
            End If
        End If
        ' 再帰
        Call ClaimReflexive(PubSubClaimNo - 1)
    End Sub

    Private Function ClaimBeforeReflexive(ByVal rowCnt As Integer)
        ' クレームツリーの前の数値を取得
        PubSubClaimNo = PubAryPla(rowCnt)

        ' 終了条件
        If PubSubClaimNo = 0 Then
            ClaimBeforeReflexive = False
            Exit Function
        End If
        ' ツリーの最後を削除
        PubClaimBody = Regex.Replace(PubClaimBody, "-(?!.*-).*([0-9０-９]*)", "")
        ClaimBeforeReflexive = True
    End Function



> 「大幅の改善が認められない」と言うのはループ処理に変更してもスタックオーバーフローは発生しそうと言うことですか？
> 　それとも何らかのパフォーマンスについての言及ですか？
すいません。こちらの都合です。
実は、テスト等が終っている状態で大きなプログラムの修正が認められないということです。