تبدیل txt به mdb

[niko2008]

با سلام خدمت دوستان عزیز
من یه فایل تکست دارم که نمونه اونو در زیر آوردم میخوام اونو به mdb بشکل زیر تبدیل کنم لطفا راهنمایی بفرمایید




TMST
TMRI
CNTST
CNTRI
BLKPRD
AID


0
440
0
0
R300
20031


0
0
30
20
0
20032







;SET ALMBA:AID=20031, BLKPRD=R300, CNTRI=0, CNTST=0, TMRI=440, TMST=0
;SET ALMBA:AID=20032, BLKPRD=0, CNTRI=20, CNTST=30, TMRI=0, TMST=0
;SET ALMBA:AID=20033, BLKPRD=0, CNTRI=110, CNTST=0, TMRI=0, TMST=0
;SET ALMBA:AID=20036, BLKPRD=0, CNTRI=0, CNTST=0, TMRI=0, TMST=0

[Fery666]

سلام با این دستور میتونین هر کلمه رو جدا کنی ، ولی اگر فایل اصلی رو بذاری شاید بشه بهتر کمک کرد . چون فاصله بین هر کلمه مشخص نیست .




Dim Char() As String

Open "C:\test.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, inputdata

Char = Split(inputdata)
Loop

Char(0),Char(1)

[niko2008]

اینم نمونه تکست

[Fery666]

سلام .

من برای شما تمام اعداد رو جدا کردم و در لیست های جداگانه ریختم ، فقط شما باید یه بانک اطلاعاتی درست کنین و با استفاده از دستور حلقه از آرایه به دیتابیس بریزید .

نمونه کار رو برای شما فرستادم . فقط بجای اینکه در لیست باکس ریخته بشن درون دیتابیس ریخته بشه .

فقط یه موضوع دیگه ، فیلد ها ثابت هستن مثل : AID و BLKPRD و CNTRISTHRD و ... اگر میخواین جدول دیتابیس رو از قبل بسازی که هیچ اگرم میخوای با کد نویسی جدول بازی اول دستورات این فیلد ها رو ایجاد کنید و در پایان اضافه کنید .

[niko2008]

دوست خوبم ممنون از لطف تون ولی ERROR میده

[Fery666]

قسمتی که ارور میده رو بهم نشون بدین .

[niko2008]

دوست عزیز اینم نمونه ERROR

[Fery666]

والا نمیدونم شما دارین توی ویندوز 8 امتحان میکنین من اونجا تست نکردم .

من توی ویندوز 7 با ویندوز مجازی XP امتحان کردم مشکلی نداره . حالا شما توی یه ویندوز 7 تست کنید ببینید بازم مشکل داره .

اینم عکس :

[niko2008]

دوست عزیز خیلی ممنون از محبت تون ولی تو 7 هم امتحان کردم نشد

[vbhamed]

سلام

از منوی Tools گزینه Option رو بزنید و در سربرگ General قسمت Error Trapping رو روی گزینه دوم یعنی Break in class module قرار بدین

[niko2008]

سلام

از منوی Tools گزینه Option رو بزنید و در سربرگ General قسمت Error Trapping رو روی گزینه دوم یعنی Break in class module قرار بدین

استاد باز همان error رو داد

[vbhamed]

سلام

متن خطا رو بزارید

[niko2008]

دوست خوبم حل شد ویژوالم مشکل داشت حالا چظوری میتوان این داده ها رو با دستور create table به دیتابیس فرستاد؟

[niko2008]

لطفا کمک کنبد؟