快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线：028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后，网站问题一站解决

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

今天就跟大家聊聊有关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
  19. TCHAR chOffset2 = nText2IndexHandled
  20. nRet = (int)((WORD)chOffset1-
    (WORD)chOffset2);  
  21. break;  
  22. } 
  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;  
  27. } 
  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
  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
  37. {  
  38. nRet = lpFormatNum1[nPos]-lpFormatNum2[nPos];  
  39. if (nRet!=0)  
  40. break;  
  41. }  
  42. delete[] lpFormatNum1;  
  43. delete[] lpFormatNum2;  
  44. return nRet;  
  45. } 

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


网站栏目：VB.NET中怎么实现按文件名排序
标题链接：http://6mz.cn/article/ghjihc.html

其他资讯