令狐大虾 发表于 2025-4-5 21:48:42

[已解决]Case 下列表显示问题

本帖最后由 令狐大虾 于 2025-4-6 22:05 编辑

Local $ver = RegRead('HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0', 'ProcessorNameString')
    Switch $ver
                Case '12th Gen Intel(R) Core(TM) i5-12600K' , '12th Gen Intel(R) Core(TM) i5-12600KF' ,'12th Gen Intel(R) Core(TM) i7-12700K' , '12th Gen Intel(R) Core(TM) i7-12700KF' , '12th Gen Intel(R) Core(TM) i9-12900K' , '12th Gen Intel(R) Core(TM) i9-12900KF'

                        ;'13th Gen Intel(R) Core(TM) i5-13600K' , '13th Gen Intel(R) Core(TM) i5-13600KF' ,'13th Gen Intel(R) Core(TM) i7-13700K' , '13th Gen Intel(R) Core(TM) i7-13700KF' , '13th Gen Intel(R) Core(TM) i9-13900K' , '13th Gen Intel(R) Core(TM) i9-13900KF'
                         ;'Intel(R) Core(TM) i5-14600K' , 'Intel(R) Core(TM) i5-14600KF' ,'Intel(R) Core(TM) i7-14700K' , 'Intel(R) Core(TM) i7-14700KF' , 'Intel(R) Core(TM) i9-14900K' , 'Intel(R) Core(TM) i9-14900KF'
                         ;'Intel(R) Core(TM) UItra 5 245K' , 'Intel(R) Core(TM) UItra 5 245KF' ,'Intel(R) Core(TM) UItra 7 265K' , 'Intel(R) Core(TM) UItra 7 265KF' , 'Intel(R) Core(TM) UItra 9 285K' , 'Intel(R) Core(TM) UItra 9 285KF'
                        MsgBox(64,'提示:','当前CPU为:'&@CRLF&@CRLF&'' & $ver, 2 )
                Case Else
                MsgBox(0,'注意','非12代以上大小核CPU不需要处理', 2)
      EndSwitch
要求 case 后面分行显示完12-15代的所有信息，具体怎么写呢？下面的写法case后显示的文字太长了
Local $ver = RegRead('HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0', 'ProcessorNameString')
Switch $ver
      Case '12th Gen Intel(R) Core(TM) i5-12600K' , '12th Gen Intel(R) Core(TM) i5-12600KF' ,'12th Gen Intel(R) Core(TM) i7-12700K' , '12th Gen Intel(R) Core(TM) i7-12700KF' , '12th Gen Intel(R) Core(TM) i9-12900K' , '12th Gen Intel(R) Core(TM) i9-12900KF' , '13th Gen Intel(R) Core(TM) i5-13600K' , '13th Gen Intel(R) Core(TM) i5-13600KF' ,'13th Gen Intel(R) Core(TM) i7-13700K' , '13th Gen Intel(R) Core(TM) i7-13700KF' , '13th Gen Intel(R) Core(TM) i9-13900K' , '13th Gen Intel(R) Core(TM) i9-13900KF' , '14th Gen Intel(R) Core(TM) i5-14600K' , 'Intel(R) Core(TM) i5-14600KF' ,'Intel(R) Core(TM) i7-14700K' , 'Intel(R) Core(TM) i7-14700KF' , 'Intel(R) Core(TM) i9-14900K' , 'Intel(R) Core(TM) i9-14900KF' ,'Intel(R) Core(TM) UItra 5 245K' , 'Intel(R) Core(TM) UItra 5 245KF' ,'Intel(R) Core(TM) UItra 7 265K' , 'Intel(R) Core(TM) UItra 7 265KF' , 'Intel(R) Core(TM) UItra 9 285K' , 'Intel(R) Core(TM) UItra 9 285KF'
                MsgBoxE(64,'提示:','当前CPU为:'&@CRLF&@CRLF&'' & $ver, 2 )
      Case Else
                MsgBoxE(0,'注意','非12代以上带K的CPU不需要处理', 2 )
EndSwitch



zghwelcome 发表于 2025-4-5 22:41:58

Local $ver = RegRead('HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0', 'ProcessorNameString')
If StringRegExp($ver, '(?i)th\h+gen\h+') Then
        MsgBox(64, '提示:', '当前CPU为:' & @CRLF & @CRLF & '' & $ver, 2)
Else
        MsgBox(0, '注意', '非12代以上大小核CPU不需要处理', 2)
EndIf

令狐大虾 发表于 2025-4-5 23:41:21

zghwelcome 发表于 2025-4-5 22:41


谢谢我需要的是识别12代以上带K的精准型号并导入大小核心注册表调度

afan 发表于 2025-4-6 19:34:58

Local $var = '2'
Switch $var
        Case '1', _
                '2', _
                '3'
                MsgBox(64, '', $var)
        Case Else
                MsgBox(0, 'Else', $var)
EndSwitch

令狐大虾 发表于 2025-4-6 22:04:33

afan 发表于 2025-4-6 19:34
Local $var = '2'
Switch $var
        Case '1', _


谢谢A大，之前我也想过后面加"_"，不过我是几列后再添加所以编译失败

afan 发表于 2025-4-7 09:20:45

令狐大虾 发表于 2025-4-6 22:04
谢谢A大，之前我也想过后面加"_"，不过我是几列后再添加所以编译失败

总数据量不要超过4k字节，否则编译会失败
页: [1]
查看完整版本: [已解决]Case 下列表显示问题