منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "القواعد";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

إلى

IB والتصدير من النص البحث عن فروع مماثلة


Cranium   (2002-07-04 13:44) [0]

من ملف txt باستخدام الكود التالي ، أقوم بتصدير البيانات إلى قاعدة بيانات IB ،
......
OpenDialog1.Filter: = "TXT | * .txt"؛
إذا OpenDialog1.Execute ثم
بدأ
PathFile: = OpenDialog1.FileName؛
AssignFile (DatF ، PathFile) ؛
إعادة تعيين (DatF) ؛
Label2.Caption: = "تم فتح الملف بنجاح ، تتم قراءة البيانات"؛
بينما SeekEof (DatF) = خطأ
بدأ
ReadLn (DatF، S1) ؛
إذا كان Pos ("0" ، S1) = 1 ،
بدأ
حذف (S1,1,2،XNUMX،XNUMX) ؛
S2: = نسخ (S1,1،1 ، ((Pos ("~" ، S1) -XNUMX))) ؛
DataModule2.IBStoredProcIn.ParamByName ("ART"). القيمة: = S2؛
حذف (S1,1،1 ، (Pos ("~" ، SXNUMX))) ؛

S2: = نسخ (S1,1،1 ، ((Pos ("~" ، S1) -XNUMX))) ؛
DataModule2.IBStoredProcIn.ParamByName "KOL"). AsFloat: = StrToFloat (S2)؛
حذف (S1,1،1 ، (Pos ("~" ، SXNUMX))) ؛
.................
محاولة
DataModule2.IBTransaction1.Active: = False؛
DataModule2.IBTransaction1.StartTransaction.
DataModule2.IBStoredProcIn.ExecProc.
إلا
DataModule2.IBTransaction1.Rollback.
الغاية؛
DataModule2.IBTransaction1.Commit.
في إعداد IBDatabase lc_ctype = WIN1251
الملف المصدر هو نفسه في تخطيط Windows ، ومع ذلك ، عندما يتم توفير الأحرف الروسية في نقطة: DataModule2.IBStoredProcIn.ExecProc؛
الصراخ عن خطأ الترميز ..... رمز خطأ SQL - 303
ما هو أشعل النار ؟؟؟



Cranium   (2002-07-04 13:56) [1]

حسنا ، حقا ، لا أحد يعرف ؟؟؟



Val   (2002-07-04 14:00) [2]

والقاعدة نفسها في ما الترميز؟



Cranium   (2002-07-04 14:01) [3]

نعم ، نفس WIN1251 ، أنا هنا جالس وأرفف أدمغتي ..........



صفحات: 1 فرع كامل

المنتدى: "القواعد";
الأرشيف الحالي: 2002.07.25;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.54 ميغابايت
الوقت: 0.021 ج
1-81255
nitro313
2002-07-15 05:51
2002.07.25
أخبرني ماستاكي من فضلك! أنا أكتب ما يلي ...


7-81506
باهو
2002-05-06 03:34
2002.07.25
امتيازات ... العمليات


1-81257
demisen
2002-07-15 09:12
2002.07.25
TDBTreeView


4-81512
z_1
2002-05-20 15:52
2002.07.25
نافذة مقبض نشط


8-81375
Viktor_TM
2002-03-16 11:43
2002.07.25
تمثيل رسومي لملفات wav





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский