哪位大哥能把这段visual的代码,转成Borland的,不是很难,在线等,快速结贴

[wangdequan1024]

如题,只要能在BORLAND下面正常编译通过就行
这一小段程序就是从文本文件中提取数据,转化成固定格式.

在线等,快速结贴

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAXLINESIZE 100

void GetData( double ibuffer, char temp[] )
{

if( ibuffer > 0 && ibuffer <= 0.1 )
strcpy(temp, "0000000001");
else if( ibuffer > 0.1 && ibuffer <= 0.2 )
strcpy(temp, "0000000011");
else if( ibuffer > 0.1 && ibuffer <= 0.2 )
strcpy(temp, "0000000011");
else if( ibuffer > 0.2 && ibuffer <= 0.3 )
strcpy(temp, "0000000111");
else if( ibuffer > 0.3 && ibuffer <= 0.4 )
strcpy(temp, "0000001111");
else if( ibuffer > 0.4 && ibuffer <= 0.5 )
strcpy(temp, "0000011111");
else if( ibuffer > 0.5 && ibuffer <= 0.6 )
strcpy(temp, "0000111111");
else if( ibuffer > 0.6 && ibuffer <= 0.7 )
strcpy(temp, "0001111111");
else if( ibuffer > 0.7 && ibuffer <= 0.8 )
strcpy(temp, "0011111111");
else if( ibuffer > 0.8 && ibuffer <= 0.9 )
strcpy(temp, "0111111111");
else if( ibuffer > 0.9 && ibuffer <= 1 )
strcpy(temp, "1000000000");
else
strcpy(temp, "1111111111");

}

int main()
{
FILE *file = NULL;
FILE *file1 = NULL;
char strtemp[100];
char sbuffer[MAXLINESIZE];
char strbuffer[4][11];
double ibuffer;
int j = 0;
int k = 0;

int len;

strtemp[0] = ' ';
file = fopen( "source.txt", "r" );
file1 = fopen( "target.txt", "w" );

if (file == NULL || file1 == NULL)
{
printf( "file open err!" );
return 0;
}

while( !feof( file ) )
{
fgets( sbuffer, MAXLINESIZE, file );
len = strlen(sbuffer);
for( int i=0; sbuffer[i] != '\0'; i++ )
{
if( sbuffer[i] == ' ' )
sbuffer[i] = '\0';
}

while( j < len )
{
strcpy( strtemp, sbuffer + j );
ibuffer = atof( strtemp );
GetData(ibuffer, strbuffer[k]);
j = j + strlen(strtemp) + 1;
k = k + 1;
}

for( int m=0; m<10; m++ )
{
for( int n=0; n<4; n++)
{
if(n != 3)
{
fputc(strbuffer[n][m], file1);
fputc(' ', file1);
}
else
{
fputc(strbuffer[n][m], file1);
fputs("\r\n", file1);

}
}
}
}
fclose(file);
fclose(file1);
return 0;
}

[F117p]

上面的代码不用改动任何部分就可以在BC下正常编译。
新键个Consle Wizard控制台工程，把代码拷贝进去，不用做任何修改就可以编译通过

[jixingzhong]

同上...

[xili]

标准c代码哦

[Builder007]

//*******包含头文件********
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAXLINESIZE 100
//*************************
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//************自定义函数******************
void GetData( double ibuffer, char temp[] )
{

if( ibuffer > 0 && ibuffer <= 0.1 )
strcpy(temp, "0000000001");
else if( ibuffer > 0.1 && ibuffer <= 0.2 )
strcpy(temp, "0000000011");
else if( ibuffer > 0.1 && ibuffer <= 0.2 )
strcpy(temp, "0000000011");
else if( ibuffer > 0.2 && ibuffer <= 0.3 )
strcpy(temp, "0000000111");
else if( ibuffer > 0.3 && ibuffer <= 0.4 )
strcpy(temp, "0000001111");
else if( ibuffer > 0.4 && ibuffer <= 0.5 )
strcpy(temp, "0000011111");
else if( ibuffer > 0.5 && ibuffer <= 0.6 )
strcpy(temp, "0000111111");
else if( ibuffer > 0.6 && ibuffer <= 0.7 )
strcpy(temp, "0001111111");
else if( ibuffer > 0.7 && ibuffer <= 0.8 )
strcpy(temp, "0011111111");
else if( ibuffer > 0.8 && ibuffer <= 0.9 )
strcpy(temp, "0111111111");
else if( ibuffer > 0.9 && ibuffer <= 1 )
strcpy(temp, "1000000000");
else
strcpy(temp, "1111111111");

}
//*************************************************

//---------------------------------------------------------------------------

//****************双击窗体创建FormCreate函数********
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//**********在FormCreate函数体内加入如下代码:
FILE *file,*file1;
char strtemp[100];
char sbuffer[MAXLINESIZE];
char strbuffer[4][11];
double ibuffer;
int j = 0;
int k = 0;

int len;

strtemp[0] = ' ';
file = fopen( "source.txt", "r" );
file1 = fopen( "target.txt", "w" );

if (file == NULL || file1 == NULL)

ShowMessage( "file open err!" );

while( !feof( file ) )
{
fgets( sbuffer, MAXLINESIZE, file );
len = strlen(sbuffer);
for( int i=0; sbuffer[i] != '\0'; i++ )
{
if( sbuffer[i] == ' ' )
sbuffer[i] = '\0';
}

while( j < len )
{
strcpy( strtemp, sbuffer + j );
ibuffer = atof( strtemp );
GetData(ibuffer, strbuffer[k]);
j = j + strlen(strtemp) + 1;
k = k + 1;
}

for( int m=0; m<10; m++ )
{
for( int n=0; n<4; n++)
{
if(n != 3)
{
fputc(strbuffer[n][m], file1);
fputc(' ', file1);
}
else
{
fputc(strbuffer[n][m], file1);
fputs("\r\n", file1);

}
}
}
}
fclose(file);
fclose(file1);
ShowMessage("搞定 快给分");
}

[KDE]

不用更改.

[ThinkX]

直接编译就OK了。