تويت
File.Delete("C:\\Data.ini", true, true, true)
list={}; patch ={}; x=1
audio_fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
Audio_Fold = Folder.Find("AutoPlay\\Audio", "*", false, nil);
if Audio_Fold~=nil then
for i,s in pairs(Audio_Fold)do
---------------------------
files = File.Find(s, "*.mp3", true, false, nil, nil);
if files~=nil then
for i, s in pairs(files)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[i] = String.SplitPath(s).Filename; patch[i] = s; x=x+1;
end
end
-----------------------------
file = File.Find(s, "*.3gp", true, false, nil, nil);
if file~=nil then
for i, s in pairs(file)do
ListBox.AddItem("ListBox1", String.SplitPath(s).Filename, s);
list[x] = String.SplitPath(s).Filename; patch[x] = s; x=x+1;
end
end
---------------------------
end
end
TextFile.WriteFromTable("AutoPlay\\Docs\\titre.txt", list);
TextFile.WriteFromTable("AutoPlay\\Docs\\patch.txt", patch);
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
ListBox.DeleteItem("ListBox1", LB_ALLITEMS)
serch = Input.GetText("Input1");
------------------------------------------------------
name1 = String.Replace(serch, "Ã", "Ç"); name1 = String.Replace(name1, "Å", "Ç");
name1 = String.Replace(name1, "Â", "Ç"); name1 = String.Replace(name1, "Ä", "æ");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
if Dlettre == "å" then name2 = String.Replace(name1, "å", "É");
elseif Dlettre == "ì" then name2 = String.Replace(name1, "ì", "í"); else name2 = name1; end
---------------------------------
liste = TextFile.ReadToTable("AutoPlay\\Docs\\titre.txt");
patch = TextFile.ReadToTable("AutoPlay\\Docs\\patch.txt");
for k,serch1 in pairs(liste) do
pat = patch[k];
nam1 = String.Replace(serch1, "Ã", "Ç"); nam1 = String.Replace(nam1, "Å", "Ç");
nam1 = String.Replace(nam1, "Â", "Ç"); nam1 = String.Replace(nam1, "Ä", "Â");
lon = String.Length(nam1) ; Dlettr = String.Mid(nam1, lon , 1) ;
if Dlettr == "ì" then nam2 = String.Replace(nam1, "ì", "í");
elseif Dlettr == "å" then nam2 = String.Replace(nam1, "å", "É"); else nam2 = nam1; end
----------------------------
pat = patch[k];
-----------------------------------
if String.Find(nam2,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox1", serch1 , pat);
end
-----------------------------------------------
end ;
تعليق