Access俱乐部
Access入门经典视频《运用Access实现降本增效》（免费）[] | 免费《Access五节必修课》[]
?&&&&?&&&&?&&&&?&&&&
您的位置：　 > >
字符串分解Split函数的用法
来源:&&点击数:7953&&评论数:0　&|&&|&
时　间: 00:00:00
作　者:&&&ID：5203&&城市：郑州
摘　要:本文介绍字符串分解Split函数的用法&，由于帮助中没有示例，故做一示例说明之。
字符串分解Split函数的用法&&&
返回一个下标从零开始的一维数组，它包含指定数目的子字符串。
Split(expression[, delimiter[, limit[, compare]]])
Split(字符串或字符串变量[, 分隔符[, 返回个数[, 比较方式]]])
Split函数语法有如下命名参数：
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(&&)，Split则返回一个空数组，即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(& &)作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
limit 可选的。要返回的子字符串数，&1表示返回所有的子字符串。
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅&设置值&部分。
compare参数的设置值如下：
常数 值 描述
vbUseCompareOption &1 用Option Compare语句中的设置值执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
Dim a() As String
Dim s As String
Dim i As Integer
s=&567/678/900/000&
a = Split(s, &/&, -1)
for i=LBound(a) to UBound(a)
&msgbox(a(i))
其中使用了 LBound（数组最小下标）函数和UBound（数组最大下标） 函数
LBound 函数
返回一个 Long 型数据，其值为指定数组维可用的最小下标。
LBound(arrayname[, dimension])
LBound 函数的语法包含下面部分：
arrayname 必需的。数组变量的名称，遵循标准的变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略 dimension，就认为是 1。
LBound 函数与 UBound 函数一起使用，用来确定一个数组的大小。UBound 用来确定数组某一维的上界。
对具有下述维数的数组而言，LBound 的返回值见下表：
Dim A(1 To 100, 0 To 3, -3 To 4)
语句 返回值
LBound(A, 1) 1
LBound(A, 2) 0
LBound(A, 3) -3
所有维的缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。
对于那些在 Dim 中用 To 子句来设定维数的数组而言，Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。
UBound 函数
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
UBound(arrayname[, dimension])
UBound 函数的语法包含下面部分：
arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。
UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。
对具有下述维数的数组而言，UBound 的返回值见下表：
Dim A(1 To 100, 0 To 3, -3 To 4)
语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4
Access软件网官方交流QQ群 (群号:)
　　　　　　
&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】&&&&【&&】
Access网店
价格：￥50 元
价格：￥1 元
价格：￥880 元
(7-14&21:58)
(7-14&21:54)
(7-14&17:41)
(7-14&15:36)
(7-14&09:24)
(7-13&13:03)
(7-13&12:22)
(7-13&11:59)
(7-11&19:37)
(7-11&19:20)
Access软件网 版权所有 CopyRight
提供支持 本站特聘法律顾问: 李慧 律师VB :split()函数_百度知道
VB :split()函数
; &&quot. ? ,, &&#39soz = Split(tbox.T)Print soz(i)i = i + 1上面的只用空格做分割副 能不能在加 ;这些
dsh jdks我是说 几种符号一起做分割符比如说：”ndjk:有这样一个字符串
提问者采纳
after_douhao = Replace(d;ndjk, &quot, &quot?&quot,dsh jdks, 空格 ,dsh jdks,&quot?bhsj” 进行分离?bhsj&，而分隔符号是;)Dim byte_lxp() As Stringbyte_lxp = Split(after_? 我用vb的replace和split来达到了相同的效果, &quot。d = &quot, & &;; &)after_wenhao = Replace(after_douhao, & &quot你的意思我非是要对”ndjk
提问者评价
是个好办法
其他类似问题
4人觉得有用
为您推荐：
其他2条回答
你所说的直接用split函数是做不到的
当然可以了：
Split函数的语法是：
Split(expression[, delimiter[, count[, compare]]])
Split函数返回一个下标从零开始的一维字符串数组，它包含字符串(expression)里指定数目(count)的子字符串。
Split函数语法有如下几部分:
expression参数是必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(&&)，Split则返回一个空数组，即没有元素和数据的数组
delimiter参数是可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(& &)作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
count参数是可选的。要返回的子字符串数，–1表示返回所有的...
可以 当然可以
split的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁创建一个可以被access引用的split函数_百度知道
创建一个可以被access引用的split函数
&}& ;&Look&apple&quot.&&&nbsp.bandcamp.jimdo.&,&&,&quot.jimdo. strs[1]=45;&&nbsp.nckfpz.&nbsp.jimdo.bandcamp,&&nbsp,&quot.jimdo!&, 和 &quot,&quot.jimdo.&&.jimdo,& qddkfpw.&&&;&&nbsp.Dim TestArray() As String = Split(TestString)DimTestStringAsString=&quot,&
&&&&& &&&&&&&nbsp.banana&TestArrayholds{&quot,&&.& &&nbsp.&&&.com &jnfpz.Length-1IfTestArray(i)&lt.&&#39.￥&&nbsp下面的示例演示如何在字符串的空格处拆分该字符串;&strs[2]=67;& &&strs[3]=8;&&at&quot!&quot.&
&nbsp.bandcamp.jimdo.;apple&&Stringstr=“123￥45￥67￥8”;}DimLastNonEmptyAsInteger=-1 &&& &&;applepearbanana&hebfpz.split(&TestArraynowholds{&DimTestArray()AsString=Split(TestString)'&&&&&nbsp.&&&quot.&&&nbsp.&nbsp.;& &
ncdkfpw.&&&quot.&& &banana&quot. &ThenLastNonEmpty+=1TestArray(LastNonEmpty)=TestArray(i)EndIfNextReDimPreserveTestArray(LastNonEmpty)'&。Dim TestString As String = & &&&&nbsp.L&& 返回的数组包含 &quot.&&& &&strs[0]= &cdfpz, &quot,&&&&xianfpz.).com & &strs[]=Stringstr
其他类似问题
为您推荐：
split函数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁因需要，用ASP编写了一个EXCEL上传程序，并且把上传的EXCEL数据导入到已经建好的ACCESS_百度知道
因需要，用ASP编写了一个EXCEL上传程序，并且把上传的EXCEL数据导入到已经建好的ACCESS
哪位高手教我下 或者给我有说明的源码 满分885 分全给你
&lt.asp&上传XLS文件结束;form& &
&file1&&filename)
&&gt.close action=& &form& type=file class=input-text size=&& &#47.0.org/1999/xhtml&quot.asp
filenameend= CODEPAGE=&quot.fileSize&%@LANGUAGE=&quot，下面从上传的XLS文件中读取数据写入到SQL数据库
strAddr=a&--&gt.close()
set conn=nothing %&css&meta http-equiv=&返回&您选择的文件过大;a href= &lt.Close()
set excelconn=nothing
30& //Extended Properties='+strAddr+&quot.write &;;%&file1&&gt.html& &gt.addnew
rs1(&导入数据&quot,td！&quot.open sql1;
rs:19px:70script&--&gt.write &Content-Type&quot: #%&form-data&&;/Cate_Code& &body&gt.CreateObject(&quot.&/tr&936&
color.movenextIMEX=1'&text&#47,1. &a href=&#47！&quot.eof) then
rs!--#include file=&db_script&)
excelconn: 12px.ScriptTimeOut=600000 set upload=new upload_5xsoft set file=& &style&
set rs= content=&xls&.fileSize&gt.120000 then %&html&& charset=gb2312&script& &Excel 8;Asse_Code&&);title&html xmlns=&quot.asp
&% end iftext/&#47.org/1999/xhtml" target="_blank">css& & &/link href=& if (top,th {
font- then
filename=filename&filenameend(1)
file,script&table width=&&#47.end() End if set upload=nothing
'title&)
set rs1= & &&)=rs(0)
rs1(&)=rs(3)
rs1;/);input name=&select * from [Sheet1$]&)=rs(1)
rs1(&quot！&%/.mappath(&quot://www.OLEDB.inc&
rs1.movenext
end ifEXECL数据导入&meta http-equiv=&quot,1
if not(text/css&#47.w3;common&#47.CreateObject(&) &&#47.close().saveAs S数据格式不对;uploadfile/)
if filenameend(1)=&文件不能为空;数据导入成功;VBSCRIPT&)
sql=&body leftmargin=& &&&stylesheet&Categories& } --& charset=gb2312&
& &返回&style type=&uploadfile/
&; method=&quot.open & content=& &lt://body&gt.asp&/ rel=&Asse_Name&upload_5
-------------------------------------- -------上传并且写入库----------- readxls.asp&form name=& &0&title&gt,3
rs1; enctype=&
history.connection&quot,conn.4;post&script& topmargin=&quot.css&quot.location) {
adodb.createobject(& alert(&&/ &lt.reload();select * from [Fees_Asse_T] where id is null&table&HDR=NO;&gt,& &lt.open sql.write &Provider = Mhead&index.recordset&quot.MapPath(&quot.location.back(); &&#47.end()
set file=nothing else
/title& Data Source = &&&a& } &&gt!&quot.0 ;head&html.J & &&tr&gt!-- border=0 cellspacing=0 cellpadding=0& &
&head& & & &0 then
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
filename=filename+&
response.filename
filenameend=split( value=&//td& &
alert(&input type=submit name=&
response.&quot.asp&quot.asp& style=&
window.file(&script&/multipart/body&gt.location==上传文件&td&gt!--#include file=&Content-Type&quot.update
rs1; <a href="http.close()
set rs=nothing
set rs1=nothing
excelconn.write &0&quot.location=&quot.recordset& type=&&html&gt,1;text&#47.w3;submit&)=rs(2)
rs1(&&#47.CodePage=936 S&filename)
set excelconn=head&gt
其他类似问题
为您推荐：
excel数据的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请问ACCESS里如何把一个字段下面的全部数据都删除呢？_百度知道
请问ACCESS里如何把一个字段下面的全部数据都删除呢？
？谢谢，只把后面的数据全部清0！，请问在access2003中该如何操作呢就是前两个下面的数据保留
com/zhidao/wh%3D600%2C800/sign=159c9e4c85af/ac6eddc451da81cbb268f8ac31c0.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http.hiphotos.baidu.jpg" esrc="/zhidao/wh%3D450%2C600/sign=/zhidao/pic/item/ac6eddc451da81cbb268f8ac31c0.baidu://d://d.hiphotos.baidu<a href="http.hiphotos://d
提问者采纳
简单快速直接操作数据库，然后在新建一个同名字段，删除该字段，打开数据库，默认值是0即可
其他类似问题
为您推荐：
access的相关知识
其他2条回答
不过你最好先备份，再操作update . = 0 就行了.. set .
Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set cont = New ADODB.Connection &#039;创建连接
Set rs = New ADODB.Recordset
On Error GoTo transactsql_error
strConnection = &Provider = Microsoft.jet.oledb.4.0; data source=& & App.Path & &\cd1.&
strConnection = strConnection & &Persist Security Info=F&
strArray = Split(sql) &#039;Split() 返回一个下标从零开始的一维数组
cont.Open strConnection &#039;打开连接
If StrComp(UCase$(strArray(0)), &select&, vbTextCompare) = 0 Then
rs.Open Trim$(sql), cont, adOpenKeyset...
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁