vb.net - ステップごとに分割するよりも、単一のステートメントでコードを作成する方がオーバーヘッドはありますか?

Question

私はVB.NETに比較的慣れておらず、プログラミングを独学しているため、基礎知識や概念があまりないため、私の素朴さと無知を許してください。

VB 関数を段階的に、または 1 行の長いコードで記述することのロジスティクス、パフォーマンス、および効率性に興味があります。

以下は、いくつかの HTML を解析するための私のプログラムの 1 つからの小さな関数です。コードは単なるランダムな例であり、コードの両方のブロックがまったく同じ機能を実行することに注意してください。これらは、1 つの長く簡潔なコード片と対比して、長い手続き型の宣言済みコード、セグメント化されたコードなどのポイントを説明するためにここに表示されています。

ロングコード

Dim html As String
Dim htmlString As String
Dim dIndex As Integer
html = WebBrowser.DocumentText
htmlString = "size=" & Chr(34) & "15" & Chr(34) & " maxlength=" & Chr(34) & "40" & Chr(34) & ">"
dIndex = html.IndexOf(htmlString)
If (dIndex > -1) Then
    Dim lIndex As Integer
    Dim sDomain As String
    sDomain = html.Substring(dIndex + 26, 20)
    lIndex = sDomain.IndexOf("<")
    LblSubDomain.Text = sDomain.Substring(0, lIndex)
Else
    LblSubDomain.Text = "Cannot Find Sub Domain Extension"
End If

ショートコード

If (WebBrowser.DocumentText.IndexOf("size=" & Chr(34) & "15" & Chr(34) & " maxlength=" & Chr(34) & "40" & Chr(34) & ">") > -1) Then
    LblSubDomain.Text = WebBrowser.DocumentText.Substring(WebBrowser.DocumentText.IndexOf("size=" & Chr(34) & "15" & Chr(34) & " maxlength=" & Chr(34) & "40" & Chr(34) & ">") + 26, 20).Substring(0, WebBrowser.DocumentText.Substring(WebBrowser.DocumentText.IndexOf("size=" & Chr(34) & "15" & Chr(34) & " maxlength=" & Chr(34) & "40" & Chr(34) & ">") + 26, 20).IndexOf("<"))
Else
    LblSubDomain.Text = "Cannot Find Sub Domain Extension"
End If

私の質問は次のとおりです。2 つのコードブロックのうち、パフォーマンスへの影響が最も少ないのはどれか、または VB2012 はそれを 1 行のコードにコンパイルするので、違いはありませんか?

どうもありがとうございました。私の質問がスタックオーバーフローの期待の範囲内に収まることを願っています

score 3 · Accepted Answer

パフォーマンスに関しては、同じコードを効果的に生成します。

保守性とデバッグの観点から、オプション #1 は、Visual Studio を介してブレークポイントを簡単に挿入できるため、非常に好まれます。また、各行のロジックの量が少ないため、一般的に理解しやすくなります。

私は実際には、2 つのオプションの間の満足のいく中間を提唱し、それをオプション #1.5 と呼びます。

Dim html As String = WebBrowser.DocumentText
Dim htmlString As String = "size=" & Chr(34) & "15" & Chr(34) & " maxlength=" & Chr(34) & "40" & Chr(34) & ">"
Dim dIndex As Integer = html.IndexOf(htmlString)

If (dIndex > -1) Then
    Dim lIndex As Integer = sDomain.IndexOf("<")
    Dim sDomain As String = html.Substring(dIndex + 26, 20)

    LblSubDomain.Text = sDomain.Substring(0, lIndex)
Else
    LblSubDomain.Text = "Cannot Find Sub Domain Extension"
End If

これにより、コードの総行数を減らすことができますが、オプション #1 が提供した可読性、保守性、およびデバッグ性はほとんど維持されます。

Reflector を介して Intermediate Language (IL) に逆コンパイルされたコードを次に示します。

注:MySub()オプション #1 は IL に逆コンパイルされます。

.method public instance void MySub() cil managed
{
    .maxstack 4
    .locals init (
        [0] int32 num,
        [1] string str,
        [2] string str2,
        [3] int32 num2,
        [4] string str3,
        [5] bool flag)
    L_0000: nop 
    L_0001: ldarg.0 
    L_0002: callvirt instance class    [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_0007: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_000c: stloc.1 
    L_000d: ldstr "size=\"15\" maxlength=\"40\">"
    L_0012: stloc.2 
    L_0013: ldloc.1 
    L_0014: ldloc.2 
    L_0015: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_001a: stloc.0 
    L_001b: ldloc.0 
    L_001c: ldc.i4.m1 
    L_001d: cgt 
    L_001f: stloc.s flag
    L_0021: ldloc.s flag
    L_0023: brfalse.s L_0057
    L_0025: ldloc.1 
    L_0026: ldloc.0 
    L_0027: ldc.i4.s 0x1a
    L_0029: add.ovf 
    L_002a: ldc.i4.s 20
    L_002c: callvirt instance string [mscorlib]System.String::Substring(int32, int32)
    L_0031: stloc.s str3
    L_0033: ldloc.s str3
    L_0035: ldstr "<"
    L_003a: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_003f: stloc.3 
    L_0040: ldarg.0 
    L_0041: callvirt instance class [System.Windows.Forms]System.Windows.Forms.Label WindowsApplication3.Form1::get_LblSubDomain()
    L_0046: ldloc.s str3
    L_0048: ldc.i4.0 
    L_0049: ldloc.3 
    L_004a: callvirt instance string [mscorlib]System.String::Substring(int32, int32)
    L_004f: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Label::set_Text(string)
    L_0054: nop 
    L_0055: br.s L_0069
    L_0057: nop 
    L_0058: ldarg.0 
    L_0059: callvirt instance class [System.Windows.Forms]System.Windows.Forms.Label WindowsApplication3.Form1::get_LblSubDomain()
    L_005e: ldstr "Cannot Find Sub Domain Extension"
    L_0063: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Label::set_Text(string)
    L_0068: nop 
    L_0069: nop 
    L_006a: nop 
    L_006b: ret 
}

注:MySub2()オプション #2 は IL に逆コンパイルされます。

.method public instance void MySub2() cil managed
{
    .maxstack 6
    .locals init (
        [0] bool flag)
    L_0000: nop 
    L_0001: ldarg.0 
    L_0002: callvirt instance class [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_0007: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_000c: ldstr "size=\"15\" maxlength=\"40\">"
    L_0011: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_0016: ldc.i4.m1 
    L_0017: cgt 
    L_0019: stloc.0 
    L_001a: ldloc.0 
    L_001b: brfalse.s L_008f
    L_001d: ldarg.0 
    L_001e: callvirt instance class [System.Windows.Forms]System.Windows.Forms.Label WindowsApplication3.Form1::get_LblSubDomain()
    L_0023: ldarg.0 
    L_0024: callvirt instance class [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_0029: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_002e: ldarg.0 
    L_002f: callvirt instance class [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_0034: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_0039: ldstr "size=\"15\" maxlength=\"40\">"
    L_003e: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_0043: ldc.i4.s 0x1a
    L_0045: add.ovf 
    L_0046: ldc.i4.s 20
    L_0048: callvirt instance string [mscorlib]System.String::Substring(int32, int32)
    L_004d: ldc.i4.0 
    L_004e: ldarg.0 
    L_004f: callvirt instance class [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_0054: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_0059: ldarg.0 
    L_005a: callvirt instance class [System.Windows.Forms]System.Windows.Forms.WebBrowser WindowsApplication3.Form1::get_WebBrowser()
    L_005f: callvirt instance string [System.Windows.Forms]System.Windows.Forms.WebBrowser::get_DocumentText()
    L_0064: ldstr "size=\"15\" maxlength=\"40\">"
    L_0069: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_006e: ldc.i4.s 0x1a
    L_0070: add.ovf 
    L_0071: ldc.i4.s 20
    L_0073: callvirt instance string [mscorlib]System.String::Substring(int32, int32)
    L_0078: ldstr "<"
    L_007d: callvirt instance int32 [mscorlib]System.String::IndexOf(string)
    L_0082: callvirt instance string [mscorlib]System.String::Substring(int32, int32)
    L_0087: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Label::set_Text(string)
    L_008c: nop 
    L_008d: br.s L_00a1
    L_008f: nop 
    L_0090: ldarg.0 
    L_0091: callvirt instance class [System.Windows.Forms]System.Windows.Forms.Label WindowsApplication3.Form1::get_LblSubDomain()
    L_0096: ldstr "Cannot Find Sub Domain Extension"
    L_009b: callvirt instance void [System.Windows.Forms]System.Windows.Forms.Label::set_Text(string)
    L_00a0: nop 
    L_00a1: nop 
    L_00a2: nop 
    L_00a3: ret 
}

注: Reflectorは試用期間を過ぎると無料の製品ではなくなりましたが、コードの IL を取得するための無料の代替手段があります (ildasmは .NET Framework に組み込まれたツールであり、ILSpyは Reflector が無料ではなくなったことに対するオープンソースの対応です) )

vb.net - ステップごとに分割するよりも、単一のステートメントでコードを作成する方がオーバーヘッドはありますか?

1 に答える 1

Related

Reference