xieguigang
/
microsoft-visualbasic-runtime
0
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
microsoft-visualbasic-runtime/Text/ASCII.vb

506 lines
18 KiB
VB.net
Raw Normal View History

update source file headers
2020-03-28 15:44:37 +08:00
#Region "Microsoft.VisualBasic::392e3ddd3233c9af8fca7a47ff882ad8, Microsoft.VisualBasic.Core\Text\ASCII.vb"
update file headers
2019-06-04 20:43:55 +08:00
' Author:
'
' asuka (amethyst.asuka@gcmodeller.org)
' xie (genetics@smrucc.org)
' xieguigang (xie.guigang@live.com)
'
' Copyright (c) 2018 GPL3 Licensed
'
'
' GNU GENERAL PUBLIC LICENSE (GPL3)
'
'
' This program is free software: you can redistribute it and/or modify
' it under the terms of the GNU General Public License as published by
' the Free Software Foundation, either version 3 of the License, or
' (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program. If not, see <http://www.gnu.org/licenses/>.
' /********************************************************************************/
' Summaries:
' Class ASCII
'
' Properties: AlphaNumericTable, Nonprintings, Symbols
'
' Function: IsASCIIString, IsNonPrinting, ReplaceQuot, TrimNonPrintings
' Class [Byte]
'
' Function: GetASCIISymbols
'
'
'
'
' /********************************************************************************/
add source files
2018-08-02 20:14:48 +08:00
#End Region
Imports System.Runtime.CompilerServices
Imports System.Text
Imports Microsoft.VisualBasic.Linq
Imports Microsoft.VisualBasic.Language
split module source files
2019-05-29 21:17:06 +08:00
Imports Microsoft.VisualBasic.ComponentModel.Collection
add source files
2018-08-02 20:14:48 +08:00
Namespace Text
''' <summary>
''' ``ASCII`` (``American Standard Code for Information Interchange``，美国信息互换标准代码，``ASCⅡ``) 是基于拉丁字母的一套电脑编码系统。
''' 它主要用于显示现代英语和其他西欧语言。它是现今最通用的单字节编码系统，并等同于国际标准``ISO/IEC 646``。
''' ASCII第一次以规范标准的型态发表是在1967年，最后一次更新则是在1986年，至今为止共定义了128个字符，其中33个字符无法显示
''' （这是以现今操作系统为依归，但在DOS模式下可显示出一些诸如笑脸、扑克牌花式等8-bit符号），且这33个字符多数都已是陈废的控制字符，
''' 控制字符的用途主要是用来操控已经处理过的文字，在33个字符之外的是95个可显示的字符，包含用键盘敲下空白键所产生的空白字符也算1个可显示字符
''' （显示为空白）。
''' </summary>
''' <remarks>http://ascii.911cha.com/</remarks>
Public Class ASCII
''' <summary>
''' 0000 0000 0 00 NUL 空字符（Null）
''' </summary>
Public Const NUL As Char = Chr(0)
''' <summary>
''' 0000 0001 1 01 SOH 标题开始
''' </summary>
Public Const SOH As Char = Chr(1)
''' <summary>
''' 0000 0010 2 02 STX 本文开始
''' </summary>
Public Const STX As Char = Chr(2)
''' <summary>
''' 0000 0011 3 03 ETX 本文结束
''' </summary>
Public Const ETX As Char = Chr(3)
''' <summary>
''' 0000 0100 4 04 EOT 传输结束
''' </summary>
Public Const EOT As Char = Chr(4)
''' <summary>
''' 0000 0101 5 05 ENQ 请求
''' </summary>
Public Const ENQ As Char = Chr(5)
''' <summary>
''' 0000 0110 6 06 ACK 确认回应
''' </summary>
Public Const ACK As Char = Chr(6)
''' <summary>
''' 0000 0111 7 07 BEL 响铃
''' </summary>
Public Const BEL As Char = Chr(7)
''' <summary>
''' 0000 1000 8 08 BS 退格
''' </summary>
Public Const BS As Char = Chr(8)
''' <summary>
''' 0000 1001 9 09 HT 水平定位符号
''' </summary>
Public Const HT As Char = Chr(9)
''' <summary>
''' 0000 1010 10 0A LF 换行键
''' </summary>
Public Const LF As Char = Chr(10)
''' <summary>
''' 0000 1011 11 0B VT 垂直定位符号
''' </summary>
Public Const VT As Char = Chr(11)
''' <summary>
''' 0000 1100 12 0C FF 换页键
''' </summary>
Public Const FF As Char = Chr(12)
''' <summary>
''' 0000 1101 13 0D CR 归位键
''' </summary>
Public Const CR As Char = Chr(13)
''' <summary>
''' 0000 1110 14 0E SO 取消变换（Shift out）
''' </summary>
Public Const SO As Char = Chr(14)
''' <summary>
''' 0000 1111 15 0F SI 启用变换（Shift in）
''' </summary>
Public Const SI As Char = Chr(15)
''' <summary>
''' 0001 0000 16 10 DLE 跳出数据通讯
''' </summary>
Public Const DLE As Char = Chr(16)
''' <summary>
''' 0001 0001 17 11 DC1 设备控制一（XON 启用软件速度控制）
''' </summary>
Public Const DC1 As Char = Chr(17)
''' <summary>
''' 0001 0010 18 12 DC2 设备控制二
''' </summary>
Public Const DC2 As Char = Chr(18)
''' <summary>
''' 0001 0011 19 13 DC3 设备控制三（XOFF 停用软件速度控制）
''' </summary>
Public Const DC3 As Char = Chr(19)
''' <summary>
''' 0001 0100 20 14 DC4 设备控制四
''' </summary>
Public Const DC4 As Char = Chr(20)
''' <summary>
''' 0001 0101 21 15 NAK 确认失败回应
''' </summary>
Public Const NAK As Char = Chr(21)
''' <summary>
''' 0001 0110 22 16 SYN 同步用暂停
''' </summary>
Public Const SYN As Char = Chr(22)
''' <summary>
''' 0001 0111 23 17 ETB 区块传输结束
''' </summary>
Public Const ETB As Char = Chr(23)
''' <summary>
''' 0001 1000 24 18 CAN 取消
''' </summary>
Public Const CAN As Char = Chr(24)
''' <summary>
''' 0001 1001 25 19 EM 连接介质中断
''' </summary>
Public Const EM As Char = Chr(25)
''' <summary>
''' 0001 1010 26 1A SUB 替换
''' </summary>
Public Const [SUB] As Char = Chr(26)
''' <summary>
''' 0001 1011 27 1B ESC 跳出
''' </summary>
Public Const ESC As Char = Chr(27)
''' <summary>
''' 0001 1100 28 1C FS 文件分割符
''' </summary>
Public Const FS As Char = Chr(28)
''' <summary>
''' 0001 1101 29 1D GS 组群分隔符
''' </summary>
Public Const GS As Char = Chr(29)
''' <summary>
''' 0001 1110 30 1E RS 记录分隔符
''' </summary>
Public Const RS As Char = Chr(30)
''' <summary>
''' 0001 1111 31 1F US 单元分隔符
''' </summary>
Public Const US As Char = Chr(31)
''' <summary>
''' 0111 1111 127 7F DEL 删除
''' </summary>
Public Const DEL As Char = Chr(127)
''' <summary>
''' 非打印字符也可以是正则表达式的组成部分。下表列出了表示非打印字符的转义序列：
'''
''' ##### 转义序列
'''
''' |字符|含义|
''' |---|----|
''' |\cx|匹配 x 指示的控制字符。例如，\cM 匹配 Control-M 或回车符。x 的值必须在 A-Z 或 a-z 之间。如果不是这样，则假定 c 就是“c”字符本身。|
''' |\f |换页符匹配。等效于 \x0c 和 \cL。|
''' |\n |换行符匹配。等效于 \x0a 和 \cJ。|
''' |\r |匹配一个回车符。等效于 \x0d 和 \cM。|
''' |\s |匹配任何空白字符，包括空格、制表符、换页符等。与 [\f\n\r\t\v] 等效。|
''' |\S |匹配任何非空白字符。与 [^ \f\n\r\t\v] 等效。|
''' |\t |制表符匹配。与 \x09 和 \cI 等效。|
''' |\v |垂直制表符匹配。与 \x0b 和 \cK 等效。|
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property Nonprintings As Char() = {
ASCII.ACK,
ASCII.BEL,
ASCII.BS,
ASCII.CAN,
ASCII.DC1,
ASCII.DC2,
ASCII.DC3,
ASCII.DC4,
ASCII.DEL,
ASCII.DLE,
ASCII.EM,
ASCII.ENQ,
ASCII.EOT,
ASCII.ESC,
ASCII.ETB,
ASCII.ETX,
ASCII.FF,
ASCII.FS,
ASCII.GS,
ASCII.HT,
ASCII.NAK,
ASCII.NUL,
ASCII.RS,
ASCII.SI,
ASCII.SO,
ASCII.SOH,
ASCII.STX,
ASCII.SUB,
ASCII.SYN,
ASCII.US,
ASCII.VT
}
''' <summary>
''' <see cref="vbTab"/>
''' </summary>
Public Const TAB As Char = CChar(vbTab)
''' <summary>
''' 双引号``"``
''' </summary>
Public Const Quot As Char = Chr(34)
Public Shared ReadOnly QuotBegin_ZHCN As Char = Convert.ToChar(8220)
Public Shared ReadOnly QuotEnds_ZHCN As Char = Convert.ToChar(8221)
Public Const QuotUnknown As Char = "″"c
Public Const A As Integer = Asc("A"c)
Public Const Z As Integer = Asc("Z"c)
Public Const al% = Asc("a"c)
Public Const zl% = Asc("z"c)
variant type
2019-03-22 22:11:28 +08:00
Public Const N As Integer = Asc("N"c)
add source files
2018-08-02 20:14:48 +08:00
''' <summary>
''' ASCII code for number ``0``
''' </summary>
Public Const n0% = Asc("0"c)
''' <summary>
''' ASCII code for number ``9``
''' </summary>
Public Const n9% = Asc("9"c)
''' <summary>
''' 单引号
''' </summary>
Public Const Mark As Char = "'"c
split module source files
2019-05-29 21:17:06 +08:00
Shared ReadOnly nonPrintingBytes As Index(Of Byte) = Nonprintings _
.Select(Function(c) CByte(Asc(c))) _
.ToArray
add source files
2018-08-02 20:14:48 +08:00
Public Shared Function TrimNonPrintings(s$) As String
For Each c As Char In Nonprintings
Call s.Trim(c, "")
Next
Return s
End Function
split module source files
2019-05-29 21:17:06 +08:00
<MethodImpl(MethodImplOptions.AggressiveInlining)>
Public Shared Function IsNonPrinting(b As Byte) As Boolean
Return b Like nonPrintingBytes
End Function
add source files
2018-08-02 20:14:48 +08:00
''' <summary>
''' 分别替换英文双引号，中文双引号为指定的字符串
''' </summary>
''' <param name="s"></param>
''' <param name="replace"></param>
''' <returns></returns>
Public Shared Function ReplaceQuot(s As String, Optional replace As String = "'") As String
Dim sb As New StringBuilder(s)
Call sb.Replace(ASCII.Quot, replace)
Call sb.Replace(ASCII.QuotBegin_ZHCN, replace)
Call sb.Replace(ASCII.QuotEnds_ZHCN, replace)
Call sb.Replace(ASCII.QuotUnknown, replace)
Return sb.ToString
End Function
<MethodImpl(MethodImplOptions.AggressiveInlining)>
Public Shared Function IsASCIIString(str As String) As Boolean
Return Not str.Any(Function(c) Asc(c) > 128)
End Function
''' <summary>
''' Symbols without white space.(可以印刷的ASCII符号列表)
''' </summary>
''' <returns></returns>
Public Shared ReadOnly Property Symbols As Char() = ASCII.Byte.GetASCIISymbols().Select(AddressOf Chr).ToArray
Public Shared ReadOnly Property AlphaNumericTable As New Dictionary(Of Char, Integer)() From {
{"0"c, 0}, {"1"c, 1}, {"2"c, 2}, {"3"c, 3}, {"4"c, 4},
{"5"c, 5}, {"6"c, 6}, {"7"c, 7}, {"8"c, 8}, {"9"c, 9},
{"A"c, 10}, {"B"c, 11}, {"C"c, 12}, {"D"c, 13}, {"E"c, 14}, {"F"c, 15}, {"G"c, 16},
{"H"c, 17}, {"I"c, 18}, {"J"c, 19}, {"K"c, 20}, {"L"c, 21}, {"M"c, 22}, {"N"c, 23},
{"O"c, 24}, {"P"c, 25}, {"Q"c, 26},
{"R"c, 27}, {"S"c, 28}, {"T"c, 29},
{"U"c, 30}, {"V"c, 31}, {"W"c, 32},
{"X"c, 33}, {"Y"c, 34}, {"Z"c, 35},
{" "c, 36},
{"$"c, 37},
{"%"c, 38},
{"*"c, 39},
{"+"c, 40},
{"-"c, 41},
{"."c, 42},
{"/"c, 43},
{":"c, 44}
}
Public Class [Byte]
Public Shared Function GetASCIISymbols() As Integer()
Dim code As New List(Of Integer)
code += {33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47}
code += {58, 59, 60, 61, 62, 63, 64}
code += {91, 92, 93, 94, 95, 96}
code += {123, 124, 125, 126}
Return code
End Function
''' <summary>
''' 0000 0000 0 00 NUL 空字符（Null）
''' </summary>
Public Const NUL As Integer = 0
''' <summary>
''' 0000 0001 1 01 SOH 标题开始
''' </summary>
Public Const SOH As Integer = 1
''' <summary>
''' 0000 0010 2 02 STX 本文开始
''' </summary>
Public Const STX As Integer = 2
''' <summary>
''' 0000 0011 3 03 ETX 本文结束
''' </summary>
Public Const ETX As Integer = 3
''' <summary>
''' 0000 0100 4 04 EOT 传输结束
''' </summary>
Public Const EOT As Integer = 4
''' <summary>
''' 0000 0101 5 05 ENQ 请求
''' </summary>
Public Const ENQ As Integer = 5
''' <summary>
''' 0000 0110 6 06 ACK 确认回应
''' </summary>
Public Const ACK As Integer = 6
''' <summary>
''' 0000 0111 7 07 BEL 响铃
''' </summary>
Public Const BEL As Integer = 7
''' <summary>
''' 0000 1000 8 08 BS 退格
''' </summary>
Public Const BS As Integer = 8
''' <summary>
''' 0000 1001 9 09 HT 水平定位符号
''' </summary>
Public Const HT As Integer = 9
''' <summary>
''' 0000 1010 10 0A LF 换行键
''' </summary>
Public Const LF As Integer = 10
''' <summary>
''' 0000 1011 11 0B VT 垂直定位符号
''' </summary>
Public Const VT As Integer = 11
''' <summary>
''' 0000 1100 12 0C FF 换页键
''' </summary>
Public Const FF As Integer = 12
''' <summary>
''' 0000 1101 13 0D CR 归位键
''' </summary>
Public Const CR As Integer = 13
''' <summary>
''' 0000 1110 14 0E SO 取消变换（Shift out）
''' </summary>
Public Const SO As Integer = 14
''' <summary>
''' 0000 1111 15 0F SI 启用变换（Shift in）
''' </summary>
Public Const SI As Integer = 15
''' <summary>
''' 0001 0000 16 10 DLE 跳出数据通讯
''' </summary>
Public Const DLE As Integer = 16
''' <summary>
''' 0001 0001 17 11 DC1 设备控制一（XON 启用软件速度控制）
''' </summary>
Public Const DC1 As Integer = 17
''' <summary>
''' 0001 0010 18 12 DC2 设备控制二
''' </summary>
Public Const DC2 As Integer = 18
''' <summary>
''' 0001 0011 19 13 DC3 设备控制三（XOFF 停用软件速度控制）
''' </summary>
Public Const DC3 As Integer = 19
''' <summary>
''' 0001 0100 20 14 DC4 设备控制四
''' </summary>
Public Const DC4 As Integer = 20
''' <summary>
''' 0001 0101 21 15 NAK 确认失败回应
''' </summary>
Public Const NAK As Integer = 21
''' <summary>
''' 0001 0110 22 16 SYN 同步用暂停
''' </summary>
Public Const SYN As Integer = 22
''' <summary>
''' 0001 0111 23 17 ETB 区块传输结束
''' </summary>
Public Const ETB As Integer = 23
''' <summary>
''' 0001 1000 24 18 CAN 取消
''' </summary>
Public Const CAN As Integer = 24
''' <summary>
''' 0001 1001 25 19 EM 连接介质中断
''' </summary>
Public Const EM As Integer = 25
''' <summary>
''' 0001 1010 26 1A SUB 替换
''' </summary>
Public Const [SUB] As Integer = 26
''' <summary>
''' 0001 1011 27 1B ESC 跳出
''' </summary>
Public Const ESC As Integer = 27
''' <summary>
''' 0001 1100 28 1C FS 文件分割符
''' </summary>
Public Const FS As Integer = 28
''' <summary>
''' 0001 1101 29 1D GS 组群分隔符
''' </summary>
Public Const GS As Integer = 29
''' <summary>
''' 0001 1110 30 1E RS 记录分隔符
''' </summary>
Public Const RS As Integer = 30
''' <summary>
''' 0001 1111 31 1F US 单元分隔符
''' </summary>
Public Const US As Integer = 31
''' <summary>
''' 0111 1111 127 7F DEL 删除
''' </summary>
Public Const DEL As Integer = 127
''' <summary>
''' <see cref="vbTab"/>
''' </summary>
Public Const TAB As Integer = Asc(vbTab)
improvement of the object naming style
2020-01-12 22:52:18 +08:00
Public Const Hyphen As Integer = Asc("-"c)
add source files
2018-08-02 20:14:48 +08:00
End Class
End Class
End Namespace