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

最新推荐文章于 2024-08-15 00:42:35 发布

electricperi

最新推荐文章于 2024-08-15 00:42:35 发布

阅读量1.6k

点赞数

分类专栏： VB/VB.NET 文章标签： vb string integer function 扩展 c

本文链接：https://blog.csdn.net/electricperi/article/details/554681

版权

本文提供了一组VB函数，包括GetRowNum()、GetRowValue()、RowReplaceEx()、RowReplace()，用于处理字符串的列内容。此外，还包括GetFileName()、GetPath()、NameOfFile()、ExtOfFile()函数，用于提取文件路径中的文件名、路径、文件名主体和扩展名。

摘要由CSDN通过智能技术生成

'*************************************************************************
'名称：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