ايران ويج

نسخه‌ی کامل: چگونه این کد را وارد کنیم
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام بچه ها من می خوام
یه برنامه بنویسم که حروف یا اعداد رو به این مقداری که می گم تبدیل کنم
ببینید من می خوام مثلا اگه e رو تایپ کرد تویه text box برام چاپ کنه اون نوع نوشتن ascii اون حرف رو این نوع های ascii در یک فایل هست من می خوام برنامه وقتی e رو دید بره به خط مثلا 10 اون فایله که از قبل درست کردیم و اونو تو text box چاپ کنه من می خوام این کارو بکنم لطفا کمک کنید ممنون
اين چه نوع سوال پرسيدنه ؟
خودت يكبار بخون ببين مي فهمي چي نوشتي ؟
اگر مي خواهيد به سوالهايي كه مي پرسيد زود جواب داده شود متن سوال خود را كامل و قابل فهم بنويسيد.
سلام آقا ببخشید
من می خوام وقتی در برنامه e وارد می شود برنامه بره به فایل مثلا ali.dbi و از داخل اون از خط 12 تا 15 رو بیاره تو یه تکست باکس چاپ کنه من چی کار کنم
با سلام
قسمت اولش كه چيز سختي نيست
ولي خوندن از خط خاصي از يك فايل با اين تابع ميشه
(( كپي رايت )) اين تابع رو امير جان نوشته : amirjan

کد:
Function ReadTXT_Line(FilePath As String, Line As Integer) As String
Dim Buffer As String
Buffer = String(FileLen(FilePath), " ")
Open FilePath For Binary As 1#
Get 1#, , Buffer
Close 1#
Lines = Split(Buffer, vbNewLine)
ReadTXT_Line = Lines(Line - 1)
End Function
اگه بازم مشكلي بود يا منظورت اين نبود بگو