27.4MB的档案VB6要转5分多～再这样我要放弃VB6的了～改用C写了～
该如何加速？24.7MB只是测试档～实际上要考虑转 ?GB 级的档案～所以速度上实在不行～


速度是用API測的

Option Explicit

Dim FileName As String

Private Sub Command1_Click()
Dim S1 As Currency, S2 As Currency, f As Currency, t1 As Currency   '計時用

On Error GoTo ErrorHandling

    FileName = ""
    Dialog1.ShowOpen
    FileName = Dialog1.FileName
    
    If FileName <> "" Then
        FileName = Trim(FileName)
        Text1.Text = FileName
        Text1.ToolTipText = FileName
        
        Call QueryPerformanceFrequency(f)      '計時
        Call QueryPerformanceCounter(S1)       '計時
        
        Call UNIX2Dos(FileName)
'        Call TransFileFormat(FileName)
        
        Call QueryPerformanceCounter(S2)       '計時
        t1 = (S2 - S1) / f                     '計時
        
        MsgBox t1
        
    End If
    
Exit Sub

ErrorHandling:
    Call ErrorWriteBuff(FileName, iCount, "TransformFile", Err.Number, Err.Description, "系統訊息")
    Resume Next
End Sub

Private Sub Form_Initialize()
    ErrorCount = 0: ReDim ErrorData(ErrorCount)
End Sub

Option Explicit

Public ErrorCount As Long
Public ErrorData() As String
Public iCount As Long

Public Declare Function QueryPerformanceCounter Lib "kernel32" (x As Currency) As Boolean
Public Declare Function QueryPerformanceFrequency Lib "kernel32" (x As Currency) As Boolean

Public Function UNIX2Dos(FileName As String) As String
Dim FileNum1 As Integer, FileNum2 As Integer, i As Long
Dim TempString As Byte, newFileName As String

On Error GoTo ErrorHandling

    iCount = 0
    
    newFileName = Mid(FileName, 1, InStrRev(FileName, ".") - 1) & "_new.log"
    
    FileNum1 = FreeFile: FileNum2 = FreeFile + 1
    Open newFileName For Binary Access Write As #FileNum2
    Open FileName For Binary Access Read As #FileNum1
        Do While Not EOF(FileNum1)
            Get #FileNum1, , TempString
            
            If TempString = 10 Then
                Put #FileNum2, , CByte(Val(10))
                Put #FileNum2, , CByte(Val(13))
            Else
                Put #FileNum2, , CByte(Val(TempString))
            End If
            
            iCount = iCount + 1
            
            DoEvents
        Loop
    Close #FileNum1, #FileNum2
    
    UNIX2Dos = newFileName
    
Exit Function

ErrorHandling:
    Call ErrorWriteBuff(FileName, iCount, "TransformFile", Err.Number, Err.Description, "系統訊息")
    Resume Next
End Function

[ 本帖最后由 wube 于 2011-5-20 21:47 编辑 ]

FileNum1 = FreeFile  'Error...

你寫倒反~我是FileNum2先開~所以要先Freefile~

CPU Load 50% ↑...内存使用量看不出～因为开的QQ本来就占很多～



更慢 = =

二进位处理还是要用C才是王道～
这2天我先去把C搞出来～绝对会比VB6的快近百倍～因为C就是快～

以前处理STDF原稿用VB6的写(也是16进位转ACII码)～一个档案300MB的搞了快30分～
全部源码不变搬到VC去～只改语法～你猜花多久～10秒～

[ 本帖最后由 wube 于 2011-5-20 22:05 编辑 ]

虽说是公司规定～是主要原因～不是我没诚意～不是我不发给你～而是公司档案全都是机密档案～而我又在研发部门～
要档案测很简单～我只是要转UNIX的DOS的～你随便电脑里找个100MB的的档案～
用UltraEdit的转存成UNIX的格式～再去用VB6的运行成DOS的格式也可以～

再说其实VB的不是开档慢～是他处理字串～人家C是直接用二进位在处理～VB的就偏先帮你转十进位～
在存的时候在帮你依需求转其他进位档～你试试看读取一个16进位档案进一个数组就知道了～
全都自动变成10进位～是比较人性化～但是就是这样花掉时间累积起来的～当然也许还有别的原因～
例如函式它有包好可以直接用的～很方便～但是实际上它包的是对于任何情况下都OK的～
所以使用者在使用时～他会多跑很多不需要的功能导致速度比较慢～这就是高阶语言比低阶语言效率低的原因～
但是高阶语言易懂易学是优点～要我学完VB中在去写C～我会想哭～

而且更悲惨的是～转档（UNIX->DOS）的这需求～只有VB需要～3个人在写这程式～一个用C～一个用LabView～
一个用VB～就只有VB会有这问题～现在另外两个都接近完工～我还在搞转格式～后续还有解析资料～依座标画图形～
依数值填表格之类的动作要做～我还在卡VB的读不出的UNIX档案～呵呵呵～
算是长见识了～VB的弱点～

我家没装QQ说～还在下～公司也是今天第一次装来试用看看而已～

[ 本帖最后由 wube 于 2011-5-20 23:19 编辑 ]

别说我事前问问题都不先做功课～下面是UNIX2DOS的C源代码～

=============================== unix2dos.cpp ===============================

// converts Unix text files to DOS format by replacing \n with \r\n

#include <stdio.h>
#include <dir.h>
#include "readahead.h"

void main(int argc, char **argv)
{
  for (int i = 1; i < argc; i++)
  {
    readahead *f = new readahead(argv[i], 3);
    printf("%s:\n", argv[i]);
    if (!f->open())
    {
      fputs("Can't open file\n", stderr);
      continue;
    }
    FILE *t = tmpfile();
    while ((*f)[0] != EOF)
    {
      if ((*f)[0] == '\r' && (*f)[1] == '\n')
      {
        fputc('\n', t);
        f->advance(2);
      }
      else if ((*f)[0] == '\n')
      {
        fputc('\n', t);
        f->advance(1);
      }
      else
      {
        fputc((*f)[0], t);
        f->advance(1);
      }
    }
    delete f;
    rewind(t);
    FILE *ff = fopen(argv[i], "w");
    if (ff == NULL)
    {
      fputs("Can't modify file\n", stderr);
      continue;
    }
    int c;
    while ((c = fgetc(t)) != EOF)
      fputc(c, ff);
    fclose(t);
    fclose(ff);
  }
}

=============================== readahead.cpp ===============================

// File reading package with read-ahead

#include "readahead.h"

readahead::readahead(const char *filespecs, unsigned size, bool binary)
{
  psize = size;
  buffer = new int[psize];
  fp = fopen(filespecs, binary ? "rb" : "r");
  eof = fp == NULL;
  unsigned i;
  for (i = 0; i < psize; i++)
    buffer[i] = get();
}

readahead::~readahead()
{
  if (open())
  {
    delete [] buffer;
    fclose(fp);
    fp = NULL;
  }
}

void readahead::advance(unsigned count)
{
  while (count > 0)
  {
    unsigned i;
    for (i = 0; i < psize-1; i++)
      buffer[i] = buffer[i+1];
    buffer[i] = get();
    count--;
  }
}

int readahead::get(void)
{
  int c;
  if (eof)
    c = EOF;
  else
  {
    c = fgetc(fp);
    if (c == EOF)
      eof = true;
  }
  return c;
}

bool readahead::match(const char *s) const
{
  int i;
  for (i = 0; s[i] != 0; i++)
  {
    if (s[i] != (char) buffer[i])
      return false;
  }
  return true;
}

=============================== readahead.h   ===============================

#ifndef H__READAHEAD
#define H__READAHEAD

#include <stdio.h>

class readahead
{
  public:
    readahead(const char *filespecs, unsigned size, bool binary = false);
    ~readahead();
    bool open() const {return fp != NULL;}
    int operator [](int i) const {return buffer[i];}
    void advance(unsigned count = 1);
    bool match(const char *s) const;
  private:
    int *buffer;
    unsigned psize;
    FILE *fp;
    bool eof;
    int get(void);
};
#endif

感谢高手协助先～
我再研究研究～这两天跑出去散心了～前辈要我不要24小时都泡在编程的世界里～
我太投入会疯掉～哈哈哈～

我只能说这方面是VB6中的弱点～需得靠DLL中去改善～而公用的DLL（类似的API并没有提供这功能）～所以只能自己写～再怎么钻～VB中的弱点是天生的～无法改善～

就拿STDF档来说～这档案网路上查都有～前天产线有个需求～说他无法使用我们给他的转档程式转（其实是资料合并(VB写的)）～你知道他3个档案每个约100MB的16近位档～合并需要多久？答案是半个小时～而当初因为VB的效能怎么写都太低～所以已VB中为基础开发了C版的转换程式～你猜同一组档案我转多久？答案是5秒～VB的天生效率低没法改变～再钻也无意义～倒不如多利用VB中的长处～VB不是万能～但是VB + C几乎 = 天下无敌了～

先前网上找到的～
// UNIX<--->DOS
我试了很久了终于找到了原因：
1，可以用doscp -m拷则UNIX的文件与DOS的格式一样
2，或者用外壳命令：xtod（UNIX的格式转为DOS格式）

别说4MB的了～当初我一次把400MB全部读进去内存都还差的很远～

再说C不用特别艰深的技巧才那么快～我当初VB6的版写好～全部复制到VC～只改语法～速度就相差百倍了～