数据比较

最新推荐文章于 2021-02-11 10:28:45 发布
最新推荐文章于 2021-02-11 10:28:45 发布
阅读量1.3k 收藏 1
点赞数
分类专栏： VB.NET应用点滴 文章标签： object exception function integer string class
本文介绍了一个用于比较基本数据类型的.NET框架实用类库，该类库提供了多种比较操作符的实现，如等于、不等于、大于等，并针对Between、In等特殊操作进行了优化处理。
Author： 水如烟  

参考应用类代码和辅助类代码

尝试的。

Namespace  LzmTW

     Public   Enum  CompareOperate
        Equal
        NotEqual
        Greater
        GreaterEqual
        Less
        LessEqual
        [Like]
        NotLike
        Between
        NotBetween
        [ In ]
        NotIn
        Where
     End Enum

End Namespace

 

Namespace  LzmTW
     Public   Class  uRuntimeHelper

         Public   Shared   Function  Converter( Of  V, T)( ByVal  item  As  V)  As  T
             Dim  tmp  As   Object   =   CType (item,  Object )
             Dim  mResult  As  T  =   CType (tmp, T)
             Return  mResult
         End Function

         Public   Shared   Function  ChangeType( ByVal  value  As   Object ,  ByVal  referObject  As   Object )  As   Object
             Dim  mResult  As   Object   =  System.Convert.ChangeType(value, Type.GetTypeCode(referObject.GetType))
             Return  mResult
         End Function

         Public   Shared   ReadOnly   Property  InternalSyncObject()  As   Object
             Get
                 If  gInternalSyncObject  Is   Nothing   Then
                     Dim  tmpObj  As   New   Object
                    System.Threading.Interlocked.CompareExchange(gInternalSyncObject, tmpObj,  Nothing )
                 End   If
                 Return  gInternalSyncObject
             End   Get
         End Property

         Private   Shared  gInternalSyncObject  As   Object

         Public   Shared   Function  IsBaseType( ByVal  value  As   Object )  As   Boolean
             If  value  Is   Nothing   Then   Return   False

             Dim  mTypeCode  As   Integer   =  Type.GetTypeCode(value.GetType)

             If  mTypeCode  =   1   Then   Return   False   ' Object

             Return  Array.IndexOf( Of   Integer )( CType ([ Enum ].GetValues( GetType (TypeCode)),  Integer ()), mTypeCode)  <>   - 1
         End Function
     End Class


End Namespace

 

Namespace  LzmTW.uSystem.uCollection

     Partial   Class  BaseTypeCompare

         Public   Shared   Function  IsValid( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

            mResult  =  IsValidForSimple( Of  T)(target, operate, a)

             Return  mResult
         End Function

         Public   Shared   Function  IsValid( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object ,  ByVal  b  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Select   Case  operate

                 Case  CompareOperate.Between, CompareOperate.NotBetween
                    mResult  =  IsValidForBetween( Of  T)(target, operate, a, b)
                 Case  CompareOperate.In, CompareOperate.NotIn
                    mResult  =  IsValidForIn( Of  T)(target, operate, a, b)
                 Case   Else

             End   Select


             Return  mResult
         End Function

         Public   Shared   Function  IsValid( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal   ParamArray  values()  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Select   Case  operate

                 Case  CompareOperate.Between, CompareOperate.NotBetween
                     If  values.Length  =   2   Then
                        mResult  =  IsValidForBetween( Of  T)(target, operate, values( 0 ), values( 1 ))
                     End   If
                 Case  CompareOperate.In, CompareOperate.NotIn
                    mResult  =  IsValidForIn( Of  T)(target, operate, values)
                 Case   Else

             End   Select

             Return  mResult
         End Function

         ' '' <summary>
         ' '' Between Or NotBetween
         ' '' </summary>
         Private   Shared   Function  IsValidForBetween( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object ,  ByVal  b  As   Object )  As   Boolean
             If   Not  LzmTW.uRuntimeHelper.IsBaseType(target)  Then
                 Return   False
             End   If


             Dim  aValue  As   Object
             Try
                aValue  =  LzmTW.uRuntimeHelper.Converter( Of   Object , T)(a)
             Catch  ex  As  Exception
                 Return   False
             End   Try

             Dim  bValue  As   Object
             Try
                bValue  =  LzmTW.uRuntimeHelper.Converter( Of   Object , T)(b)
             Catch  ex  As  Exception
                 Return   False
             End   Try

             Dim  mResult  As   Boolean
             Dim  mOperateValid  As   Boolean
            mResult  =  InternalCompareForBetween(mOperateValid, target, operate, aValue, bValue)

             Return  mOperateValid  And  mResult
         End Function

         ' '' <summary>
         ' '' In or NotIn
         ' '' </summary>
         Private   Shared   Function  IsValidForIn( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal   ParamArray  values()  As   Object )  As   Boolean
             If   Not  LzmTW.uRuntimeHelper.IsBaseType(target)  Then
                 Return   False
             End   If

             Dim  mValues( - 1 )  As   Object

             For   Each  obj  As   Object   In  values
                 Try
                     Dim  tmp  As   Object   =  LzmTW.uRuntimeHelper.ChangeType(obj, target)
                    CommonFunction.Append( Of   Object )(mValues, tmp)
                 Catch  ex  As  Exception
                 End   Try
             Next

             If  mValues.Length  =   0   Then
                 Return   False
             End   If

             Dim  mResult  As   Boolean

             Dim  mOperateValid  As   Boolean
            mResult  =  InternalCompareForIn(mOperateValid, target, operate, mValues)

             Return  mOperateValid  And  mResult
         End Function

         ' '' <summary>
         ' '' Simple Compare
         ' '' </summary>
         Private   Shared   Function  IsValidForSimple( Of  T)( ByVal  target  As  T,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object )  As   Boolean
             If   Not  LzmTW.uRuntimeHelper.IsBaseType(target)  Then
                 Return   False
             End   If

             Dim  aValue  As  T

             Select   Case  operate

                 Case  CompareOperate.Like, CompareOperate.NotLike

                 Case   Else

                     Try
                        aValue  =  LzmTW.uRuntimeHelper.Converter( Of   Object , T)(a)
                     Catch  ex  As  Exception
                         Return   False
                     End   Try
             End   Select




             Dim  mResult  As   Boolean
             Dim  mOperateValid  As   Boolean

             Select   Case  operate

                 Case  CompareOperate.Like, CompareOperate.NotLike

                    mResult  =  InternalCompareForSimple(mOperateValid, target, operate, a)
                 Case   Else

                    mResult  =  InternalCompareForSimple(mOperateValid, target, operate, aValue)
             End   Select


             Return  mOperateValid  And  mResult
         End Function
     End Class

End Namespace

Namespace  LzmTW.uSystem.uCollection

     ' '' <summary>
     ' '' 两数据比较。数据类型以a为参考。
     ' '' </summary>
     ' '' <remarks></remarks>
     Public   Class  BaseTypeCompare
         Private   Shared  gCompare  As  Comparer

         Private   Shared  gErrors  As  ArrayList

         Public   ReadOnly   Property  Errors()  As  ArrayList
             Get
                 Return  gErrors
             End   Get
         End Property

         Public   Shared   Sub  ClearErrors()
            gErrors.Clear()
         End Sub

         Public   Shared   ReadOnly   Property  HasErrors()  As   Boolean
             Get
                 Return  gErrors.Count  >   0
             End   Get
         End Property

         Shared   Sub   New ()
            gCompare  =   New  Comparer(System.Globalization.CultureInfo.CurrentCulture)
            gErrors  =   New  ArrayList
         End Sub

         Private   Shared   Function  InternalCompare( ByRef  OperateValid  As   Boolean ,  ByVal  target  As   Object ,  ByVal  operate  As  CompareOperate,  ByVal  whereDefines()  As  KeyValuePair( Of   String ,  Object ))  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Try
                 Throw   New  Exception( String .Format( " {0} 操作无效 " , operate.ToString))

                 Select   Case  operate
                     Case  CompareOperate.Where
                     Case   Else

                 End   Select

                OperateValid  =   True
             Catch  ex  As  Exception
                OperateValid  =   False
                AddError(ex.ToString)
             End   Try

             Return  mResult
         End Function

         Private   Shared   Function  InternalCompareForIn( ByRef  OperateValid  As   Boolean ,  ByVal  target  As   Object ,  ByVal  operate  As  CompareOperate,  ByVal  values()  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Try

                 Select   Case  operate
                     Case  CompareOperate.In
                        mResult  =  Array.IndexOf(values, target)  <>   - 1
                     Case  CompareOperate.NotIn
                        mResult  =  Array.IndexOf(values, target)  =   - 1
                     Case   Else
                         Throw   New  Exception( String .Format( " {0} 操作无效 " , operate.ToString))
                 End   Select

                OperateValid  =   True
             Catch  ex  As  Exception
                OperateValid  =   False
                AddError(ex.ToString)
             End   Try

             Return  mResult
         End Function

         Private   Shared   Function  InternalCompareForBetween( ByRef  OperateValid  As   Boolean ,  ByVal  target  As   Object ,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object ,  ByVal  b  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Try

                 Select   Case  operate

                     Case  CompareOperate.Between
                        mResult  =  (gCompare.Compare(target, a)  >=   0 )  AndAlso  (gCompare.Compare(target, b)  <=   0 )
                     Case  CompareOperate.NotBetween
                        mResult  =  (gCompare.Compare(target, a)  =   - 1 )  OrElse  (gCompare.Compare(target, b)  =   1 )
                     Case   Else
                         Throw   New  Exception( String .Format( " {0} 操作无效 " , operate.ToString))
                 End   Select

                OperateValid  =   True
             Catch  ex  As  Exception
                OperateValid  =   False
                AddError(ex.ToString)
             End   Try

             Return  mResult
         End Function

         Private   Shared   Function  InternalCompareForSimple( ByRef  OperateValid  As   Boolean ,  ByVal  target  As   Object ,  ByVal  operate  As  CompareOperate,  ByVal  a  As   Object )  As   Boolean
             Dim  mResult  As   Boolean   =   False

             Try

                 Select   Case  operate

                     Case  CompareOperate.Equal
                        mResult  =  (gCompare.Compare(target, a)  =   0 )
                     Case  CompareOperate.NotEqual
                        mResult  =  (gCompare.Compare(target, a)  <>   0 )
                     Case  CompareOperate.Greater
                        mResult  =  (gCompare.Compare(target, a)  =   1 )
                     Case  CompareOperate.GreaterEqual
                        mResult  =  (gCompare.Compare(target, a)  >=   0 )
                     Case  CompareOperate.Less
                        mResult  =  (gCompare.Compare(target, a)  =   - 1 )
                     Case  CompareOperate.LessEqual
                        mResult  =  (gCompare.Compare(target, a)  <=   0 )
                     Case  CompareOperate.Like
                        mResult  =  (target.ToString Like a.ToString)
                     Case  CompareOperate.NotLike
                        mResult  =   Not  (target.ToString Like a.ToString)
                     Case   Else
                         Throw   New  Exception( String .Format( " {0} 操作无效 " , operate.ToString))
                 End   Select

                OperateValid  =   True
             Catch  ex  As  Exception
                OperateValid  =   False
                AddError(ex.ToString)
             End   Try

             Return  mResult
         End Function

         Friend   Shared   Sub  AddError( ByVal  msg  As   String )
            gErrors.Add(msg)
         End Sub


     End Class
End Namespace
关注
专栏目录
预训练PDF数据格式转换
herosunly的博客
08-12 18万+
本文主要介绍了预训练PDF数据格式转换，希望对使用大语言模型的同学们有所帮助。 文章目录 1. 前言 2. PDF数据格式转换
python EXCEL表格数据对比
wtt234的专栏
03-04 2536
实现表格数据的对比并且标注 from openpyxl import load_workbook import os import time from psutil import net_if_addrs import pickle import sys import json from colorama import init from colorama import Fore,Back,Style #程序思路 1.读入我方从p10导出的所有地市的数据表格sheet-->data #
数据库比较工具（比较两个数据库的差异，含：表、字段字段长度等）
12-07
从朋友手里所得，感觉极好，推荐给大家。 作者QQ：81053166 一.功能说明: 本工具用于对比SQL数据库,以源数据库为标准 数据库, 然后拿目标数据库与标准数据库比较,如果目标数 据库少 了表,或少了字段,或字段类型长度不一样,或索引 不一样, 或存储过程,视图,触发器,默认值等不一样,就产生 相应的S QL语句! 二.操作方法: 先把源数据库的连接属性(数据库名,服务器名, 用户名, 密码)填好,按读源数据,然后再填目标数据库的连 接属性, 按比对,就会产生相应的SQL语句,然后按执行按钮, 或在查 询分析里执行这些段语句就OK! 操作举例: 程序开发员自己电脑上的数据库是最新的,而某 客户的 数据库和程序都是N年前的,现在要用新程序的功 能,那就 可用这个工具,先在程序员电脑上运行本工具,填 上数据库 属性,按'读源数据',然后把这个工具程序及同目录 下的sour ce.mdb一起拿到客户的电脑上,运行,填上数据库属 性,按'比 对',然后按'执行',一切都OK了!
数据对比软件
01-05
可以对比txt里的数据是否一致，不一致的地方标记出来
数据比对的小工具，windows上的
01-30
用于数据比对，去重，取交集合集等，筛选出需要的数据，作为辅助工具
基于历史K线数据比较的量化选股方法及其系统分享
smallcat0073的博客
04-11 6827
最近的量化很火，越来越多的国内外公司开始参与到其中，我相信量化是金融交易系统后续发展的大方向，其中一定有值得我们去挖掘和发现的价值和惊喜。 根据自己的想法设计了一套K线历史数据比较和分析系统，算是量化中的一种方式吧。东西陆陆续续做了近1年时间，也花了不少功夫在上面，现在把思想和系统分享出来，抛砖引玉，与大家分享。 欢迎拍砖！
CIFAR10数据集免费下载
最新发布
02-20
1. 模型比较：CIFAR10常用于对比不同深度学习模型的性能，帮助研究人员了解新提出的模型相对于已知模型的改进程度。 2. 网络架构研究：新网络结构如残差连接、密集连接等常常在CIFAR10上进行初步验证，为后续在更大...
猫狗数据集（包含标签）
06-28
还可以尝试不同的模型架构，比较它们的优劣。 6. **模型保存与应用**：训练好的模型可以保存为模型文件，便于后续直接加载使用，例如部署到实际应用中进行图像识别。 总结来说，这个“猫狗数据集”是学习和实践...
vlookup 2张表 显示na_【Excel 函数】Vlookup 正反向查询
weixin_39825941的博客
11-21 706
函数Vlookup是日常工作中常见的函数。它的本职工作是帮助你查询（返回）所需要的一个或者多个值。【注意事项与适用范围】 以单靠Vlookup函数为例，对数据区域有一定的要求 1.数据区域内不能出现错误值或者空值 2.数据区域内不能用合并同类项 3.目的数值所在列...
不平衡数据分类算法介绍与比较
热门推荐
Jie Qiao的专栏
08-28 4万+
在数据挖掘中，经常会存在不平衡数据的分类问题，比如在异常监控预测中，由于异常就大多数情况下都不会出现，因此想要达到良好的识别效果普通的分类算法还远远不够，这里介绍几种处理不平衡数据的常用方法及对比。
最强盘点！国产数据分析BI工具怎么选？看这篇就够了
帆软商业智能技术
02-11 2258
经常在后台收到粉丝留言，说公司准备上BI了，但苦于市面上BI工具太多，不知道该怎么选，让我帮忙出出主意。 这个其实说来话长，市场上的BI工具侧重点有所不同，有的以报表为主，有的以可视化为主，有的以查询分析为主，具体选择什么是需要根据公司业务需求考虑的。 但问的人很多，索性今天我就选取国内主流的几款BI工具，从产品功能、数据源支持、可视化能力、服务等方面进行对比，分析优劣，并给出我的打分，希望对你有所帮助！ 01 Tebleau Tebleau 是来自美国的自助式敏捷BI工具，优点很多，比如.
差异数据的对比和整理
Raqsoft
03-30 6687
在我们日常的工作中，常常会遇到很多结构相同，但来源不同的数据。有时，这些数据之间完全独立，互不重叠，例如各个分公司从自己系统中导出的销售数据；但有时，这些数据之间又会有大量的重叠，例如常见的一个完整业务流程中涉及的各个系统、各个环节，都可能根据各自收到的单据进行录入。这时，如何对这些重叠数据进行对比，从而发现和纠正其中的错误，就需要我们常说的“自动对账”操作了。在一般业务系统的设计开发中，这种对账...
数据挖掘之缺失数据缺失的各种插补算法比较
人工智能之路
02-08 9640
0前言 实验要求：完成插补实验 实验工具： 1、excel表格 2、记事本txt文件 3.、pycharm 4、JBPCAfill.jar包 1前期处理 1.2删除特殊字符 表格中含有None，#NULL!的字符，表示数据缺失，在表格统计数据个数时，字符None，#NULL!影响统计的数量，所以这些字符需要删除。代码在first包里的Prepare.py。 思路：两个for循环对行和列进行扫描，遇...
【收藏】全球100款大数据工具汇总
gongyf1977的专栏
07-03 2220
1、 Talend Open Studio  是第一家针对的数据集成工具市场的ETL(数据的提取Extract、传输Transform、载入Load)开源软件供应商。Talend的下载量已超过200万人次，其开源软件提供了数据整合功能。其用户包括美国国际集团（AIG）、康卡斯特、电子港湾、通用电气、三星、Ticketmaster和韦里逊等企业组织。  2、DYSON  探码科技自
数据比较函数（内存比较）
AI与算法都要通俗易懂
01-18 6755
比较两个数或两个数组是否一致。 s1 s2 为数或数组首地址，n为需要比较的长度 S8 memcmp(U8 *s1, U8 *s2, U8 n) { U8 *src1 = s1; U8 *src2 = s2; for( ; n>0 ; ++src1, ++src2, n--) { if(*src1 != *src2) {
Python中字符和数字之间是怎么比较大小的？
Preeminent
08-27 1万+
作者：朱涛 链接：https://www.zhihu.com/question/21435298/answer/18226025 来源：知乎 著作权归作者所有，转载请联系作者获得授权。 参考5. Built-in Types中的说明，CPython按照如下规则进行比较（自己的总结）： 任何两个对象都可以比较相同类型的对象（实例），如果是数字型（int/float/long/c
使用MAX+PLUSⅡ设计一位数据比较器电路
"该资源是一份来自新疆大学电气工程学院学生的课程设计报告，主题是‘一位数据比较器电路的设计’，由玉素甫江·孜比布拉完成，指导老师为王红琳努尔买买提。报告涵盖了EDA技术、VHDL语言、MAX+PLUSⅡ软件的使用以及...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值