VB.net 全局变量问题

[weixin_36528687]

Module Module2
    Public zz As String
    Sub Main()
        Dim str As String = Form1.prompt.Text
        'Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:(\d+)")
        Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:\s*(\d+)")

        Dim m As Match = reg.Match(str)
        If m.Success Then

            zz = m.Groups(1).ToString
        End If
    End Sub

End Module

zz已经定义成了全局变量了，为什么后面用的时候没有值啊

[weixin_36528687]

No key specified, trying default keys          
chk default key[ 0] ffffffffffff          
chk default key[ 1] 000000000000          
chk default key[ 2] a0a1a2a3a4a5          
chk default key[ 3] b0b1b2b3b4b5          
chk default key[ 4] aabbccddeeff          
chk default key[ 5] 4d3a99c351dd          
chk default key[ 6] 1a982c7e459a          
chk default key[ 7] d3f7d3f7d3f7          
chk default key[ 8] 714c5c886e97          
chk default key[ 9] 587ee5f9350f          
chk default key[10] a0478cc39091          
chk default key[11] 533cb6c723f6          
chk default key[12] 8fd0a4f256e9          
--sector: 0, block:  3, key type:A, key count:13           
--sector: 1, block:  7, key type:A, key count:13           
--sector: 2, block: 11, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 3, block: 15, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 4, block: 19, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 5, block: 23, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 6, block: 27, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 7, block: 31, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 8, block: 35, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 9, block: 39, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:10, block: 43, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:11, block: 47, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:12, block: 51, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:13, block: 55, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:14, block: 59, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector:15, block: 63, key type:A, key count:13           
Found valid key:[ffffffffffff]          
--sector: 0, block:  3, key type:B, key count:13           
--sector: 1, block:  7, key type:B, key count:13           
--sector: 2, block: 11, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 3, block: 15, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 4, block: 19, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 5, block: 23, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 6, block: 27, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 7, block: 31, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 8, block: 35, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector: 9, block: 39, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:10, block: 43, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:11, block: 47, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:12, block: 51, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:13, block: 55, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:14, block: 59, key type:B, key count:13           
Found valid key:[ffffffffffff]          
--sector:15, block: 63, key type:B, key count:13           
Found valid key:[ffffffffffff]          
Found keys have been transferred to the emulator memory 

确实没有值 我的整体数据是这样的，用的那个正则取得zz 为什么会没有值呢 正则取值的代码没有问题啊

[qq_39429431]

你的值读取到了吗，先用msgbox试试

[X-i-n]

你这散分散得围观群众都心疼。 你的Sub Main压根没有运行，所以ZZ根本没有赋值。

[X-i-n]

Imports System.Text.RegularExpressions
'定义一个函数，专门用来查找传入的内容，用参数的形式传入值设计上更合理
Module Module2
    Public Function zz(input As String) As String
        'Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:(\d+)")
        Dim reg As New Regex("Found valid key:\[ffffffffffff\][\d\D]*?--sector:\s*(\d+)")
        Dim m As Match = reg.Match(input)
        If m.Success Then
            Return m.Groups(1).ToString
        Else
            Return ""
        End If
    End Function
End Module

'在别的地方调用
MsgBox(zz(System.IO.File.ReadAllText("D:\t.txt")))

[weixin_36528687]

不好意思啊 昨天出了点事情，没及时看到。

         Case "button_break"

                    item.Control = New Button
                    item.Control.Text = item.Text
                    ToolTip1.SetToolTip(item.Control, item.Tooltip)

                    'AddHandler item.Control.Click, AddressOf block_num

                    'AddHandler item.Control.Click, AddressOf strFind                    
                    AddHandler item.Control.Click, AddressOf strFind2
                    AddHandler item.Control.Click, AddressOf actionCommand
                    Dim sector As String = strFind()
                    Dim key As String = strFind2()
                    Dim strTemp As String = "hf mf nested 1 "

                    'item.Action = String.Concat(strTemp, sector, " ", key, " FFFFFFFFFFFF d")

                    item.Action = String.Concat(strTemp, (这里放m.Groups(1).ToString的值), " ", key, " FFFFFFFFFFFF d")

                    item.Control.Tag = item.Action
                    item.Control.SetBounds(0, i * 35, 140, 20)
                    item.Control.AutoSize = True

数据直接用到后面，不存在txt里可以实现吗

[weixin_36528687]

啊 知道了 哈哈哈 短路了脑子