[原创]VB程序 - 处理字符和文件名称的代码模块

'*************************************************************************
'名称：GetRowNum()
'说明：获取指定字符串中内容有多少列
'调用格式：GetRowNum("Source String"[,"Mark char"])
'参数： SStr - 源字串
'       [MarkS] - 字符型，可选，默认为","，长度不可超过1字符
'返回值类型：整型
'返回值：字串被某一分隔符分隔成的列数
'-------------------------------------------------------------------------
'程序：任晓垒              日期：05/09/2005
'*************************************************************************
Function GetRowNum(ByVal SStr As String, Optional MarkS As String = ",") As Integer
Dim I, N As Integer
 
  For I = 1 To Len(SStr)
    If Mid(SStr, I, 1) = MarkS Then N = N + 1
  Next I
  GetRowNum = N + 1
End Function

'*************************************************************************
'名称：GetRowValue()
'说明：获取指定列中字符内容的函数
'调用格式：GetRowValue("Source String",RowNumber [,"Mark char"])
'参数： SStr - 字符型，源字串
'       LocalNum - 数值型，被选取的列数
'       [MarkS] - 字符型，可选，默认为","，长度不可超过1字符
'返回值类型：字符串型
'返回值：源字串中指定列的字符内容，处于分隔符之间部分，不包括分隔符
'        任何原因导致的失败都会返回空串
'-------------------------------------------------------------------------
'程序：任晓垒              日期：04/27/2005
'*************************************************************************
Function GetRowValue(ByVal SStr As String, ByVal LocalNum As Integer, Optional MarkS As String = ",") As String
  '只允许用一个字符做为分隔符
  If Len(MarkS) > 1 Then
    GetRowValue = vbNullString
    Exit Function