Oracle 数据库使用 sql语句 :    select lengthb('输入字符串') from dual  ,  来计算 字符串 所占的字节长度(比如,一个汉字3个字节),但是用这个lengthb函数时,输入字符串的长度不能超过4000,这样遇到一些超长字符串就不行了,因此,需要用下面的三个vb.net函数来配合获取:

Private Function getStrLength_long(strInput As String) As Integer

'Try

Dim list_strs As List(Of String) = getList_shortStrs(strInput)

Dim totalLength As Int16 = 0

For Each _str In list_strs

totalLength += getStrLength_short(_str)

Next

Return totalLength

'Catch ex As Exception

'    MessageBox.Show("当前输入的有特殊字符,不容许 " & ex.ToString)

'    Return 0

'End Try

End Function

 

''' <summary>

'''   这个函数的功能,是将输入的一个长字符串转化为 由若干条较短的字符串组成的列表

'''     本函数是为了测算字符串的长度而做配套的,

'''     oracle在测算字符串长度时,字符串长度不能超过4000个字节,否则会出错

'''   所以,将一条长字符串转化为若干条短字符串,对每条短字符串分别测算长度,再累加起来,即长字符串的长度

''' </summary>

''' <param name="strInput">输入的一个长字符串</param>

''' <returns></returns>

Private Function getList_shortStrs(strInput As String) As List(OfString)

Dim lengthValue As Int16 = 1000    '  阈值, 短字符串的长度

'  之所以定为 1000 ,是因为即使这1000个字符全是汉字,1000 *3 = 3000,仍然小于 4000

Dim list_strs As List(Of String) = New List(Of String)

Dim totalLength As Int16 = strInput.Length    '  名义上的总长度

If totalLength < lengthValue Then  '  如果名义长度 小于 阈值

list_strs.Add(strInput)

Return list_strs   '  返回

End If

'  现在知道该字符串 的长度 超过阈值了,需要处理

Dim ii = 0

While (ii + 1) * lengthValue <= totalLength    '  对长字符串进行 分段

list_strs.Add(strInput.Substring(ii * lengthValue, lengthValue))

ii += 1

End While

'  最后一小段字符串

list_strs.Add(strInput.Substring(ii * lengthValue, strInput.Length - ii * lengthValue))

Return list_strs   '   返回

End Function

'    下面这个函数只能对较短的字符串(长度不超过4000)判断长度

Private Function getStrLength_short(strInput As String) As String

If strInput.Length = 0 Then

End If

'   下面,直接根据Oracle数据库的判读字符串长度的方法来判断

'        lengthb(string)计算string所占的字节长度:     select lengthb('¥') from dual

Dim strSql As String = "select lengthb('" & strInput & "') from dual"

Dim rs AsNew ADODB.Recordset

Dim da As New Data.OleDb.OleDbDataAdapter()

Dim cmd AsNew ADODB.Command

cmd.CommandText = strSql

cmd.ActiveConnection = conn

cmd.CommandType = CommandType.Text

'Try

rs = cmd.Execute()       '  执行

'Catch ex As Exception

'    'MessageBox.Show("当前输入的字符串有特殊字符,无法判断长度")

'    Return "过长或特殊字符,无法判断长度"

'End Try

If Not rs.EOF Then

Return rs.Fields(0).Value.ToString

End If

Return ""

End Function

根据 oracle 标准计算超长字符串的长度的更多相关文章

  1. JS计算文本字符串字节长度和像素长度的方法

    来源:js获取字符长度并计算px宽度 - [云]风过无痕 - 博客园 (cnblogs.com) <!DOCTYPE html> <html lang="en"& ...

  2. PHP 统计中文字符串的长度

    中文网站一般会选择两种编码:gbk/gb2312或是utf-8. gbk编码下每个中文字符所占字节为2,例: $zhStr = ‘您好,中国!’; echo strlen($zhStr); // 输出 ...

  3. Oracle 超长字符串分割劈分

    Oracle 超长字符串分割劈分,具体能有多长没测过,反正很大.... 下面,,,,直奔主题了: CREATE OR REPLACE FUNCTION splitstr(p_string IN clo ...

  4. 应用:计算字符串的长度(一个双字节字符长度计2,ASCII字符计1) String.prototype.len=function(){return this.replace(/[^\x00-\xff]/g,"aa").length;}

    应用:计算字符串的长度(一个双字节字符长度计2,ASCII字符计1) String.prototype.len=function(){return this.replace(/[^\x00-\xff] ...

  5. PHP计算字符串的长度

    <?php /** * 计算字符串的长度(汉字按照两个字符计算) * * @param string $str 字符串 * * @return int */ function str_len($ ...

  6. JS计算字符串的长度

    最近项目上经常要用到计算字符串的长度的问题,有时需要按照byte进行计算长度,所以我就想在页面上用js实现,于是就到网上查了相关的资料,发现确实有很多的版本,这里给出两个比较好用的. //方法一:逐个 ...

  7. js混合计算字符串字节长度

    js混合计算字符串字节长度 function getBt(str) { ) { var char = str.match(/[^\x00-\xff]/ig); : char.length); } el ...

  8. Java 按字节计算字符串的长度

       在<从后向前截取指定长度的字符串>中介绍了如何截取字符串,本文介绍如何统计字符串的字节长度. import org.slf4j.Logger; import org.slf4j.Lo ...

  9. SqlSever基础 len函数 计算前后都有空格的字符串的长度时

    镇场诗:---大梦谁觉,水月中建博客.百千磨难,才知世事无常.---今持佛语,技术无量愿学.愿尽所学,铸一良心博客.------------------------------------------ ...

随机推荐

  1. 图解微信小程序---添加tabBar底部菜单,添加已做好轮播图操作

    图解微信小程序---添加tabBar底部菜单,添加已做好轮播图操作 什么是tabBar? 顶部或者底部tab栏如果小程序是一个多 tab 应用(客户端窗口的底部或顶部有 tab 栏可以切换页面),可以 ...

  2. Java-Queue总结

    1. ConcurrentLinkedQueue 基础链表同步队列. import java.util.Queue; import java.util.concurrent.ConcurrentLin ...

  3. TCP的三次握手过程?为什么会采用三次握手,若采用二次握手可以吗

    谢希仁版<计算机网络>中的例子: "已失效的连接请求报文段”的产生在这样一种情况下: client发出的第一个连接请求报文段并没有丢失,而是在某个网络结点长时间的滞留了,以致延误 ...

  4. mysql删除重复数据(通过多个字段分组,删除某一字段为空的数据)

    DELETE FROM t_questions WHERE Id in ( SELECT Id FROM ( SELECT Id FROM `t_questions` WHERE (Name,Ques ...

  5. Markdown温故知新(0):导航目录

    Markdown温故知新(0):导航目录 Markdown温故知新(1):Markdown面面观 Markdown温故知新(2):详解七大标准语法 Markdown温故知新(3):六个实用扩展语法 M ...

  6. vertx 异步编程指南 step7-保护和控制访问

    保护和控制访问与Vert.x很容易.在本节中,我们将: 从HTTP转移到HTTPS,以及 使用基于组的权限将用户身份验证添加到Web应用程序,以及 使用JSON Web令牌(JWT)控制对Web AP ...

  7. DjangoDRF之视图总结

    思维导图xmind文件:https://files-cdn.cnblogs.com/files/benjieming/DRF%E6%A8%A1%E5%9D%97%E4%B9%8B%E8%A7%86%E ...

  8. linux sed、awk、grep同时匹配多个条(并且 or 或者)

    同时匹配ABC 和 abc: sed -n '/ABC/{/abc/p}' awk '/ABC/&&/abc/{ print $0 }' grep -E '(ABC.*abc|abc. ...

  9. 开发技术--pandas模块

    开发|pandas模块 整了一篇关于pandas模块的使用文章,方便检查自己的学习质量.自从使用了pandas之后,真的是被它的功能所震撼~~~ 前言 目前所有的文章思想格式都是:知识+情感. 知识: ...

  10. 把JSON数据格式转换为Python的类对象

    JOSN字符串转换为自定义类实例对象 有时候我们有这种需求就是把一个JSON字符串转换为一个具体的Python类的实例,比如你接收到这样一个JSON字符串如下: {"Name": ...