紧急需要!!!unix文本文件转dos文本文件

急需两个函数  
  function   uni2dos(source   as   string,dest   as   string)  
          '功能   unix输出的文本文件里面的为换行即0A(vblf)   而dos   里面为   0D0A   (vbcrlf)  
          '就是如何将文件中的vblf   转成   vbcrlf  
   
  end   function  
   
  function   dos2uni(source   as   string,dest   as   string)  
          '功能   dos输出的文本文件里面的为换行即0D0A(vbcrlf)   而unix   里面为   0A   (vblf)  
          '就是如何将文件中的vbcrlf   转成   vblf  
   
  end   function  
   
  烦高人指点一下做法.或算法 问题点数：99、回复次数：11Top

1 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2006-07-01 11:48:00 得分 9

你试一下Replace：  
   
  Replace(src,   Chr(10),   Chr(13)   +   Chr(10))Top

2 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 11:51:14 得分 90

Replace就可以  
  Replace(src,   Chr(10),VBcrlf)Top

3 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 11:54:43 得分 0

替换成unix文件的  
  Replace(src,   VBcrlf,Chr(10))  
  Top

4 楼hebhd（汉德）回复于 2006-07-01 11:59:10 得分 0

啊晕.楼上的各位没有明白我的意思.  
   
  其实是如何打开文件并处理...  
   
  replace(src,vbcrlf,vblf)  
  replace(src,vblf,vbcrlf)  
   
   
  这个我知道....  
   
  唉.我都知道了   vbcrlf   vblf   肯定知道   replace的啦.  
   
  关键是文件方面怎么处理  
   
   
  Top

5 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 12:02:28 得分 0

function   uni2dos(unitxt   as   string,dostxt   as   string)  
  dim   src   as   string  
  Open   unitxt   For   Input   As   #1  
   
  Input   #1,   src  
   
  Close   #1  
   
  src=Replace(src,   Chr(10),VBcrlf)  
   
   
  Open   dostxt   For   output   As   #1  
   
  Print   #1,   src  
   
  Close   #1  
   
  end   function  
   
  function   dos2uni(dostxt   as   string,unitxt   as   string)  
   
  把上面的反过来就可以了  
  end   functionTop

6 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 12:04:01 得分 0

在转换的地方  
  s=uni2dos(unitxt,dostxt)就可以了  
  unitxt是unix文本　dostxt是你输出的文本Top

7 楼hebhd（汉德）回复于 2006-07-01 12:11:56 得分 0

thanks  
   
  非常感谢.我还以为input   print   都是以行来处理呢...  
   
  Top

8 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 12:12:28 得分 0

代码可用的话分记得给我Top

9 楼hebhd（汉德）回复于 2006-07-01 12:14:14 得分 0

还催分呀.嘻嘻..当然会给了..  
   
  不过vbcr   vblf   vbcrlf   都可以.没有必须去记   chr(10)   哦  
   
  哈哈哈....Top

10 楼aspower_（敬个礼 握个手 大家都素好朋友！）回复于 2006-07-01 12:16:14 得分 0

没办法  
  冲星阿Top

11 楼hebhd（汉德）回复于 2006-07-01 12:18:59 得分 0

5000分呢.我在asp才2700哈哈哈Top

相关问题

• 帖主：hebhd
• TechnoFantasy
• aspower_

• Visual Basic类图书
• Visual Basic类源码下载