Arsip: Buka File Berdasarkan Judul dari Database

 
user image
more 13 years ago

l1th1um

@ImanD: aku pengen tau nich apa sih sala satu isi dari ADOQuery1.Fields[1].AsString; apakah path+filename tanpa ektensi?
ADOQuery1.Fields[1].AsString := COMPETENCE-BASED TRAININGEDUCATION PROGRAM ON HACCP AT THE DEPARTMENT OF FOOD SCIENCE AND TECHNOLOGY, FACULTY OF AGRICULTURAL TECHNOLOGY, BOGOR AGRICULTURAL UNIVERSITY :D kan itu diconcat sama .pdf
user image
more 13 years ago

l1th1um

sorry klo pertanyaan nya kembali bodoh. ane kan pake ini
rubah  := StringReplace(title, '/', '',[rfReplaceAll, rfIgnoreCase]);
nah klo pengen selain /, so mo ditambahin ? : " *, itu gmana carany? ane sih tau, ini pake regex, cuman g tau gmana menerapkannya :D
user image
more 13 years ago

ImanD

@l1th1um: ADOQuery1.Fields[1].AsString := COMPETENCE-BASED TRAININGEDUCATION PROGRAM ON HACCP AT THE DEPARTMENT OF FOOD SCIENCE AND TECHNOLOGY, FACULTY OF AGRICULTURAL TECHNOLOGY, BOGOR AGRICULTURAL UNIVERSITY
uppps itu nama file panjang bangeeettttt kenapa ga dibuat id az?
@l1th1um: nah klo pengen selain /, so mo ditambahin ? : " , itu gmana carany? ane sih tau, ini pake regex, cuman g tau gmana menerapkannya :D
sample simple ga pke regex atw apalah xixixiixx, karena aku tak tahu........

function replaceaz(param1, param2: string): string;
var
  i: byte;
begin
  Result:=param1;
  for i:=1 to length(param2) do
    result:=StringReplace(result, param2[i], '',[rfReplaceAll, rfIgnoreCase]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  title: string;
begin
  title:='aku /ada la:h';
  Edit1.Text:=replaceaz(title,'/?:"*');
end;

  berkas := concat(title+'.pdf');
oia untuk menggabungkan file ga pke concat juga ga masalah ko

berkas:=title+'.pdf';
user image
more 13 years ago

l1th1um

@ImanD:
@l1th1um: ADOQuery1.Fields[1].AsString := COMPETENCE-BASED TRAININGEDUCATION PROGRAM ON HACCP AT THE DEPARTMENT OF FOOD SCIENCE AND TECHNOLOGY, FACULTY OF AGRICULTURAL TECHNOLOGY, BOGOR AGRICULTURAL UNIVERSITY
uppps itu nama file panjang bangeeettttt kenapa ga dibuat id az?
biar bs disearch secara manual bos, tanpa progie :D
user image
more 13 years ago

ImanD

xixiixixiix..... function nya jalan ga? atw dah pke regex?
user image
more 13 years ago

l1th1um

sip bos
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com