Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C
Sega problema e takuv:
Imam 1 fail s dumi - na vseki red po 1 duma. primerno adjectve.txt s 100 dumi
Imam si i 100 wave faila s imena Phrase 1.wav, ..., Phrase 100.wav
iskam da preimenuvam Phrase X.wav na dumata_na_suotvetniq_red_v_faila_adjective.wav
vij kakvo pravq:
void CRenameDlg::OnOK()
{
CString Path = "F:\\_WAVE\\adjective\\";
FILE *f;
char line[4096] = "", *p;
f = fopen("F:\\_WAVE\\adjective\\adjective.TXT", "rt");
if(!f)
{
MessageBox("File not found");
exit(1);
}
int result,i=0;
UpdateData(TRUE);
int decimal, sign;
char *buffer;
while (!feof(f))
{
fgets(line, sizeof(line),f);
i++;
p=strchr(line,10); if(p) *p=0;
p=strchr(line,13); if(p) *p=0;
buffer = _fcvt( i, 0, &decimal, &sign );
m_ComName = Path + m_ComName + " " + buffer + ".wav";
m_SourseFile = strcat(line , ".wav");
m_SourseFile = Path + m_SourseFile;
result = rename((LPCSTR)m_ComName,(LPCSTR)m_SourseFile);
if( result != 0 )
{
MessageBox( "Could not rename" );
exit(2);
}
/*else
MessageBox( "File renamed");*/
}
CDialog::OnOK();
}
I ne stava i ne stava. I tekstoviq fail i wav-chetata sa v F:\\_WAVE\\adjective\\ sus sigurnost.
Na Pascal stana tolkova lesno, ama nali imenata trqbva da sa do 8 simvola, Pascal za win ne mi vurvi pod 2000-to, a tupiq Prolog otnovo nqma funkciq za preimenuvane.Delphi ne mi se instalira i vsichko otnovo oprq do C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C,Mrazq C
Nobody can be exactly like me. Even I have trouble doing it.
|