تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في إنشاء ملف نصي وفقا لشروط معينة
#1
السلام عليكم ورحمة الله وبركاته
أرجو المساعدة لأنشاء ملف نصي وفقا لشروط معية بحيث


كل سطر يجب أن يحتوي علة 62 حرف CHAQUE LIGNE CONTIENT 62  CARACTERES

1-سطر العنوان وسطر الراتب

[*]LIGNE POUR L’ENTETE + UNE LIGNE POUR CHAQUE SALARIE
[*]على هذا الشكل السطر الأول
 Exemple *0000000057123142510000001253448000000012052006--------------0
السطر الثاني
Exemple *000000005712314251000000125344800AHMED ALI------------------1

Format_montant
Sur 13 positions Numériques.
Sans séparateur décimal Avec des zéros à gauche
Valeur Fixe
Exemple: pour 12 534,48 précisez  0000001253448


لقد وجدت مثال في إحدى المنتديات لكنه بلغة دلفي






كود :
function LigneDeVirement(Nccp : String;Montant: Real;Nom:String) : String;
var s,St,sNccp : String;MEntier : integer;
begin

    s:= FormatFloat('0.00',Montant );;
    s := copy(s,pos(DecimalSeparator,s)+1,2);

    MEntier := trunc(Montant);
    St  := '*00000000' +   Repeatstr('0',12-Length( epurer(Trim(Nccp)))) +  epurer(Trim(Nccp));
    St := St + RepeatStr('0',11-length(inttostr(mentier))) + IntToStr(MEntier)+ s;

    if Length(Trim(Nom)) >= 27 then St := St + LeftStr(Trim(Nom),27)+'1'
    Else St := St + nom + RepeatStr(' ',27-length(trim(nom))) + '1';

    Result := st;
end;
function epurer (CCp : String):string;
Var s,s1 : string;  i:integer;
Begin
     s := '';
     for i :=1 to length(ccp) Do
     IF (CCp[i]  in ['0'..'9']) Then S := S + CCp[i] ;
     epurer := S;
end;
(**********************************************************************)

FUNCTION RepeatStr(ch: char; n:integer): string;
var  i : integer ;
     s : string;
Begin
      s := '';
      for i := 1 to n do  s := s + ch;
      result := s;
end;
















الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم