string.pb

利用春节七天在家里写的PureBasic示例代码.基本按照C教程的章节编排.适合入门学习使用.还请大家多多提出宝贵意见 Email:[e-mail] QQ:254082

;//////////////////////////////////
; Amlinger
;                   by 2008 02 07
;描述:字符串相关函数
;目标:熟练掌握字符串函数
;//////////////////////////////////


;对于字符串的定义不在演示了..已经走了很长一段路程了.
;下面对String函数做一些演示吧.

;===========
;   Asc
;   返回对应 ascii 编码
;===========
;例子
Debug Asc("a")
Debug Asc("A")
;===========
;   Chr
;   返回对应 ascii 值
;===========
;例子:
For i.l=0 To 25 
    Debug  Chr('A'+i)+" ascii code :"+Str(('A'+i))
Next i
;===========
;   Str
;   将数字转成字符型
;===========
;例子: ;结果不是506 而是 5051
Debug Str(505)+"1"
;===========
;   Val
;   将字符转成数字型
;===========
;例子: ;结果是506 而不是 5051
Debug Val("505")+1

;===========
;   LCase
;   将字符串中大写字符变成小写 
;===========
;例如:
;Debug LCase("ABCD")
;大概PureBasic目标对转义字符支持不是很好..
;Debug "ABCD 经过 LCase("ABCD") 后变成" +  LCase("ABCD")
;只是我没有找到相关说明,看来应该于好好看看帮助文档才了..
;还记得上面的Chr()吗？ ; 顺便还得查看一下Ascii码表才行..
;呵呵对,这里我们就用它了. 
Debug "ABCD 经过 LCase("+Chr(34)+"ABCD"+Chr(34)+") 后变成" +  LCase("ABCD")


;===========
;   UCase
;   将字符串中小写字符变成大写 
;===========
;例如:
;Debug UCase("abcd")
Debug "abcd 经过 UCase("+Chr(34)+"abcd"+Chr(34)+") 后变成" +  UCase("abcd")

;===========
;   Trim LTrim RTrim
;   将字符串中的空格删去 
;   Trim 删除两边的空格
;   LTrim 删除左边的空格
;   RTrim 删除右边的空格 
;===========
;例如:
;Debug Trim("    Hello    ")
;Debug LTrim("    Hello    ")
;Debug RTrim("    Hello    ")

Debug " Trim("+Chr(34)+"    Hello    "+Chr(34)+")=*"+Trim("    Hello    ")+"*"
Debug "LTrim("+Chr(34)+"    Hello    "+Chr(34)+")=*"+LTrim("    Hello    ")+"*"
Debug "RTrim("+Chr(34)+"    Hello    "+Chr(34)+")=*"+RTrim("    Hello    ")+"*"


;===========
;   Len StringByteLength
;   获取字符串长度
;===========
;例如:
;Debug Len("Hello 我爱北京")
Debug "Len("+Chr(34)+"Hello 我爱北京"+Chr(34)+")="+Str(Len("Hello 我爱北京"))

;===========
; Left  Mid  Right
; 截取字符串
; Left  从左边获取指定长度字符串
; Right 从右边获取指定长度字符串
; Mid   从中间指定位置获取指定长度字符串
;===========
;例如:
;Debug Left("0123456789",3)
;Debug Right("0123456789",3)
;Debug Mid("0123456789",4,3)

Debug "Left("+Chr(34)+"0123456789"+Chr(34)+",3)="+Left("0123456789",3)
Debug "Right("+Chr(34)+"0123456789"+Chr(34)+",3)="+Right("0123456789",3)
Debug "Mid("+Chr(34)+"0123456789"+Chr(34)+",4,3)="+Mid("0123456789",4,3)

;===========
; 重复生成指定的内容
; RSet Space
; Space 生成指定数量的空格
; RSet  生成指定数量的内容
; RSet  还可以用指定内容填补中间的内容     
;===========
Debug "*"+Space(10)+"*"
Debug "*"+RSet("1",10)+"*"
Debug "*"+RSet("",10,"*")+"*" 
Debug "*"+RSet("12358",10,"0")+"*" 

;其中还有一个函数没有在其中演示
;有兴趣的可以自行查看,没有演示的函数多是从以上变化而来的

; IDE Options = PureBasic 4.10 (Windows - x86)
; CursorPosition = 116
; FirstLine = 82
; Folding = -