VB.NET中怎么实现按文件名排序

发布时间:2021-08-12 14:54:18 作者:Leah
来源:亿速云 阅读:132

今天就跟大家聊聊有关VB.NET中怎么实现按文件名排序,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

输入 : a1,a2,a10,a001

我们知道,如果按照字符串比较,结果应该是 a001,a1,a10,a2,但我们期望的结果应该是a001,a1,a2,a10.

自己写了一个VB.NET文件名排序的算法,请参考,或者有更好的算法,请赐教

/*  Return Value Description  < 0 arg1 less than arg2  0 arg1 equivalent to arg2>   0 arg1 greater than arg2  */
  1. int compare(const void* arg1,const
     void* arg2)  

  2. {  

  3. if (NULL==arg1||NULL==arg2)
    //address of item  

  4. return 0;  

  5. LPSTR lpText1 = *( TCHAR** )arg1; 
    //content of item  

  6. LPSTR lpText2 = *( TCHAR** )arg2; 
    //content of item  

  7. if (NULL==lpText1||NULL==lpText2)  

  8. return 0;  

  9. int nText1Len = _tcslen(lpText1);  

  10. int nText2Len = _tcslen(lpText2);  

  11. int nText1IndexHandled = 0;  

  12. int nText2IndexHandled = 0;  

  13. int nRet = 0;  

  14. for (;;)  

  15. {  

  16. if (nText1IndexHandled==nText1Len
    ||nText2IndexHandled==nText2Len) 
    //don't compare complete since 
    all are same, "ab","abc"  

  17. {  

  18. TCHAR chOffset1 = nText1IndexHandled
    <nText1Len?lpText1[nText1IndexHandled]:0;  

  19. TCHAR chOffset2 = nText2IndexHandled
    <nText2Len?lpText2[nText2IndexHandled]:0;  

  20. nRet = (int)((WORD)chOffset1-
    (WORD)chOffset2);  

  21. break;  

  1. TCHAR ch2 = *(lpText1+nText1IndexHandled);  

  2. TCHAR ch3 = *(lpText2+nText2IndexHandled);  

  3. if (isdigit(ch2)&&isdigit(ch3)) 
    // if digit, change to number and compare  

  4. {  

  5. TCHAR* lpNum1 = new TCHAR[nText1Len];  

  6. TCHAR* lpNum2 = new TCHAR[nText2Len];  

  7. if (NULL==lpNum1||NULL==lpNum2)  

  8. return 0;  

  9. memset(lpNum1,0,nText1Len*sizeof(TCHAR));  

  10. memset(lpNum2,0,nText2Len*sizeof(TCHAR));  

  11. extractnumber(lpText1,nText1Len,
    nText1IndexHandled,lpNum1);  

  12. extractnumber(lpText2,nText2Len,
    nText2IndexHandled,lpNum2);  

  13. nRet = comparenumber(lpNum1,lpNum2);  

  14. delete[] lpNum1;  

  15. delete[] lpNum2;  

  16. }  

  17. else  

  18. {  

  19. nRet = (int)((WORD)ch2-(WORD)ch3);  

  20. nText1IndexHandled++;  

  21. nText2IndexHandled++;  

  22. }  

  23. if (nRet!=0)  

  24. break;  

  25. }  

  26. return nRet;  

  1. TCHAR* extractnumber(TCHAR* lpBuf,int 
    nLen,int& nIndexBegin,TCHAR* lpNumber)  

  2. {  

  3. if (NULL==lpBuf||NULL==lpNumber)  

  4. return lpNumber;  

  5. for (int i=nIndexBegin,nIndex=0;i
    <nLen;++i,++nIndexBegin)  

  6. {  

  7. TCHAR ch = *(lpBuf+i);  

  8. if (!isdigit(ch))  

  9. break;  

  10. lpNumber[nIndex++]=ch;  

  11. }  

  12. return lpNumber;  

  13. }  

  14. int comparenumber(TCHAR* lpNumber1,
    TCHAR* lpNumber2)  

  15. {  

  16. if (NULL==lpNumber1||NULL==lpNumber2)  

  17. return 0;  

  18. int nNum1Len = _tcslen(lpNumber1);  

  19. int nNum2Len = _tcslen(lpNumber2);  

  20. int nMaxLen = max(nNum1Len,nNum2Len);  

  21. TCHAR* lpFormatNum1 = new TCHAR[nMaxLen+1];  

  22. TCHAR* lpFormatNum2 = new TCHAR[nMaxLen+1];  

  23. if (NULL==lpFormatNum1||NULL==lpFormatNum2)  

  24. return 0;  

  25. memset(lpFormatNum1,_T('0'),
    nMaxLen*sizeof(TCHAR));  

  26. memset(lpFormatNum2,_T('0'),
    nMaxLen*sizeof(TCHAR));  

  27. lpFormatNum1[nMaxLen]=0;  

  28. lpFormatNum2[nMaxLen]=0;  

  29. int nPos = 0, nRet = 0;  

  30. int nIndex = nMaxLen-1;  

  31. for (nPos=nNum1Len-1;nPos>=0;--nPos)  

  32. lpFormatNum1[nIndex--]=lpNumber1[nPos];  

  33. nIndex = nMaxLen-1;  

  34. for (nPos=nNum2Len-1;nPos>=0;--nPos)  

  35. lpFormatNum2[nIndex--]=lpNumber2[nPos];  

  36. for (nPos=0;nPos<nMaxLen;++nPos)  

  37. {  

  38. nRet = lpFormatNum1[nPos]-lpFormatNum2[nPos];  

  39. if (nRet!=0)  

  40. break;  

  41. }  

  42. delete[] lpFormatNum1;  

  43. delete[] lpFormatNum2;  

  44. return nRet;  

看完上述内容,你们对VB.NET中怎么实现按文件名排序有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。

推荐阅读:
  1. Java中怎么实现排序
  2. VB.NET 中怎么实现Timer功能

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

vb.net

上一篇:Python中re模块的findall()函数返回值展现方式有哪些

下一篇:python中如何画一个正弦函数

相关阅读

您好,登录后才能下订单哦!

密码登录
登录注册
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》