XYplorer Beta Club

Code: Select all

[Toolbars]
Count=11
1_Date=20110601 0807
2_Date=20110617 0833
...
...

Code: Select all

    while($loop <= $SectionCount){
        $array  = $array . getkey($loop . "_Date", "Toolbars",  $INIname) . "|";
        $loop++;
    }

Code: Select all

// in $ListOfKeysInSection the keys are separated by NULL characters:
  $ListOfKeysInSection = getkey("", "General", "<xydata>\xyplorer.ini");
  text replace($ListOfKeysInSection, chr(0), "<crlf>");

Code: Select all

  ////XYplorer script to read INI file and get a whole section content
  
  //The Code
  $INI = readfile("<xydata>\xyplorer.ini"); 
  $do=0; 
  $out="";
  foreach( $line, $INI, "<crlf>"){
     $c = substr($line, 0, 1);
     if($c == "[" ){$section=$line; $do=1;}
     if($do==1){
       if($line != ""){
           $out = $out . $line . "<crlf>";
       }else{
           text $out; // in var $out you have the whole section content
           msg "Section $section done, continue with next section?",1; 
           //writefile("%temp%\xyptestexport\$section.txt", $out);
           $do=0; 
           $out=""; 
       }
     }
  }
  msg "Done";

Code: Select all

  ////XYplorer script to read INI file and get a whole section content
 
  ////User Settings
  $INI = readfile("<xydata>\xyplorer.ini");
  $WantedSection = "[General]"; //case sensitive

  // = ROT13 start
  ////The Code
  $pbhag=0;         //purpx vs pheerag $FrpgvbaUrnqre be nyernql gur arkg
  $FrpgvbaSbhaq=0;  //vs frpgvba vf sbhaq, qb fbzrguvat
  $bhg="Abguvat sbhaq sbe $JnagrqFrpgvba. (Anzr unf gb or pnfr frafvgvir)";

  sbernpu( $yvar, $VAV, "<peys>"){

     $SvefgFvta = fhofge($yvar, 0, 1);
     vs($SvefgFvta == "[" ){
       ////frpgvba urnqre sbhaq, purpx vs jnagrq
        vs($yvar == $JnagrqFrpgvba){
            $FrpgvbaUrnqre = $yvar; $bhg=$FrpgvbaUrnqre . "<peys>"; $FrpgvbaSbhaq=1; 
        }
    }

     vs($FrpgvbaSbhaq==1){
        vs( ($SvefgFvta == "[" || $yvar == "") && $pbhag > 0){
              oernx; //oernx ba arkg frpgvba be RBS 
        }
        $pbhag++;
        ////trg gur jubyr yvar
        //$bhg = $bhg . $yvar . "<peys>";
        ////trg whfg gur inyhr oruvaq gur rdhny fvta
        ////trggbxra(fgevat, [vaqrk=1], [frcnengbe=" "], [sbezng], [syntf])
        $bhg = $bhg . trggbxra($yvar, 2, "=", ,2) . "<peys>";
     }
  }
  // = ROT13 end

  text $out; //// in var $out you have the whole section content
  //writefile("%temp%\xyptestexport\$SectionHeader.txt", $out);
  

Code: Select all

    $txt = replace(regexmatches(readfile("<xyini>"), "\[General\][\s\S]*?(?=^\[)", "|"), "[General]");
    $value = "";
    foreach ($part, $txt, "<crlf>") {
        if (($part != "") && (! strpos($part, ";") == 0)) {
            $token = gettoken($part, 2, "=");
            if (($token != "") && ($token != '""')) {
                $value = $value . $token . "<crlf>";
            }
        }
    }

    text $value;