希望能有朋友幫忙指點迷津，希望可以用VC\C++ 小弟正在學習!!
我有一個case是要把一些資料作位置的轉換，但是小弟不知該如何下手
從外部讀檔text.txt
內容約為1234567轉成1
2
3
4
5
6
7
橫的資料轉為直的資料，小弟有三千多筆資料要做轉換，所以必須要寫個程式，但是不太會寫
希望有朋友能幫個忙 謝謝!!

編輯記錄

請自行測試

[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var
I, J: Integer;
L0, L1: TStringList;
begin
L0 := TStringList.Create;
try
if FileExists('INPUT.TXT') then
begin
L1 := TStringList.Create;
try
L1.LoadFromFile('INPUT.TXT');
for I := 0 to L1.Count-1 do
for J := 1 to Length(L1[I]) do
L0.Add(L1[I][J]);
finally
FreeAndNil(L1);
end;
end;
//如果資料非常非常大,output可以採用 TFileStream 直接寫檔.
if L0.Count > 0 then
L0.SaveToFile('OUTPUT.TXT');
finally
FreeAndNil(L0);
end;
end;
[/code]

BCB版

[code cpp]
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TStringList *L0 = new TStringList();
try{
if(FileExists("INPUT.TXT")){
TStringList *L1 = new TStringList();
try{
L1->LoadFromFile("INPUT.TXT");
for(int i=0; iCount; i )
for(int j=1; j<=L1->Strings[i].Length(); j )
L0->Add(L1->Strings[i][j]);
}
__finally{
delete L1;
}
if(L0->Count > 0)
L0->SaveToFile("OUTPUT.TXT");
}
}
__finally{
delete L0;
}
}
[/code]

對不起~! 
jow 大

小弟以下的code 是採取vc compiler
分數就給jow大吧~~^^

jow=大好人


[code cpp]
#include
void main()
{
FILE *fptr1,*fptr2;
char ch;
fptr1 = fopen("get.txt", "r");
fptr2 = fopen("put.txt", "w");
while((ch = fgetc(fptr1)) != EOF)
fprintf(fptr2,"%c\n", ch);
fclose(fptr1);
fclose(fptr2);
}


[/code]


在下還在學 ~.~"
差jow一大截

編輯記錄

別太客氣了, 不用太在意分數, 在能力範圍內與人方便自己也覺得快樂
, 呵, 我也有寫喔, 當作是練習. 因為用delphi 比較習慣.

===================引 用 gyfatty 文 章===================
對不起~!
jow 大

小弟以下的code 是採取vc compiler
分數就給jow大吧~~^^

jow=大好人


[code cpp]
#include
void main()
{
FILE *fptr1,*fptr2;
char ch;
fptr1 = fopen("get.txt", "r");
fptr2 = fopen("put.txt", "w");
while((ch = fgetc(fptr1)) != EOF)
fprintf(fptr2,"%c\n", ch);
fclose(fptr1);
fclose(fptr2);
}


[/code]


在下還在學 ~.~"
差jow一大截