1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
char ww1 [256]; char ww2 [256];
GetWindowsDirectory(sname, sizeof(sname));
strcat(sname,"\\htwww.txt");
if (FileExists(sname)){
hF=CreateFile(sname,GENERIC_READ|GENERIC_WRITE,FILE_SHARE_READ,NULL,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,NULL);
// if(hF==INVALID_HANDLE_VALUE){ShowMessage ("impossible d'ouvrir");}
if(hF!=INVALID_HANDLE_VALUE){
Status=GetFileSize(hF,NULL);
SetFilePointer(hF,0,NULL,FILE_CURRENT);
ReadFile(hF,patter,Status,&Read,NULL);
patter[Read]='\0';
xnn=patter; tkn= "\r\n";
ptr=strtok(xnn, tkn);
sprintf(ww1, "%s",xnn);
if(strstr(ww1,"www.")||strstr(ww1,"http:")){
ComboBox2->Items->Add(ww1); }
while (ptr){
if ((ptr=strtok(0,tkn)) !=0){ // slash++;
sprintf(ww2, "%s",ptr);
if(strstr(ww2,"www.")||strstr(ww2,"http:")){
ComboBox2->Items->Add(ww2);}
}}CloseHandle(hF);} } |
Partager