以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想在表达式中使用Excel中的MIDB()函数，怎么实现？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11915)
--  作者：zxyds2000
--  发布时间：2011/8/16 17:50:00
--  想在表达式中使用Excel中的MIDB()函数，怎么实现？

Excel中有MIDB()函数，狐表表达式中没有相应的函数，

想在表达式中使用Excel中的MIDB()函数，怎么实现？
--  作者：狐狸爸爸
--  发布时间：2011/8/16 18:02:00
--  
用代码，表达式没有这个函数。
--  作者：ashi_shine
--  发布时间：2011/8/17 8:40:00
--  

.NET里面用SubString

Dim str As String
str="wjytrfg"
Dim Substr As String
Substr=str.SubString(0,2)
output.Show(Substr)
--  作者：zxyds2000
--  发布时间：2011/8/17 11:19:00
--  

用代码怎么实现，麻烦狐狸爸爸指点一下，MIDB()的关键是对字节进行计算而不是对字符进行计算，如果字符串中有汉字，会计为两个字节。
--  作者：ashi_shine
--  发布时间：2011/8/17 11:27:00
--  
Dim str As String
str="飞扬tian下"
Dim Substr As String
Substr=Encoding.Default.GetString(Encoding.Default.GetBytes(str), 0, 2)
output.Show(Substr)
--  作者：狐狸爸爸
--  发布时间：2011/8/17 11:41:00
--  寻开发人员，有偿开发一套综合信息管理系统
Dim str As String
str = "飞扬tian下"
output.show(Encoding.Default.GetBytes(str).Length)