ooltcloud/ToDec32.vb

## ToDec32.vb
Function ToDec32(source As String) As Integer

  ' 0x?? , &hxx , $xx は 16進数とする
  Dim h1 = Regex.Match(source, "(?i)^(?<prefix>0x|&h|\$)(?<body>.*)$")
  If h1.Groups("prefix").Value <> "" Then
      Return Convert.ToInt32(h1.Groups("body").Value, 16)
  End If

  ' ??h は 16進数とする
  Dim h2 = Regex.Match(source, "(?i)^(?<body>.*)(?<suffix>h)$")
  If h2.Groups("suffix").Value <> "" Then
      Return Convert.ToInt32(h2.Groups("body").Value, 16)
  End If

  ' それ以外は 10進数 とする
  Return Convert.ToInt32(source, 10)
End Function
	Function ToDec32(source As String) As Integer

	' 0x?? , &hxx , $xx は 16進数とする
	Dim h1 = Regex.Match(source, "(?i)^(?<prefix>0x\|&h\|\$)(?<body>.*)$")
	If h1.Groups("prefix").Value <> "" Then
	Return Convert.ToInt32(h1.Groups("body").Value, 16)
	End If

	' ??h は 16進数とする
	Dim h2 = Regex.Match(source, "(?i)^(?<body>.*)(?<suffix>h)$")
	If h2.Groups("suffix").Value <> "" Then
	Return Convert.ToInt32(h2.Groups("body").Value, 16)
	End If

	' それ以外は 10進数とする
	Return Convert.ToInt32(source, 10)
	End Function