string.vb

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· VB 代码 · 共 19 行

' FastScript v1.0          
' String demo              


dim i, j
dim s as String


  s = "Hello World!\r\nIt's working!"

  j = 0
  for i = 1 to Length(s)
    if s[i] = " " then Inc(j)
  next

  ShowMessage(s)
  ShowMessage("spaces: " & j)