چگونه این کد را وارد کنیم

[sanaz13x]

سلام بچه ها من می خوام
یه برنامه بنویسم که حروف یا اعداد رو به این مقداری که می گم تبدیل کنم
ببینید من می خوام مثلا اگه e رو تایپ کرد تویه text box برام چاپ کنه اون نوع نوشتن ascii اون حرف رو این نوع های ascii در یک فایل هست من می خوام برنامه وقتی e رو دید بره به خط مثلا 10 اون فایله که از قبل درست کردیم و اونو تو text box چاپ کنه من می خوام این کارو بکنم لطفا کمک کنید ممنون

[hamed_Arfaee]

اين چه نوع سوال پرسيدنه ؟
خودت يكبار بخون ببين مي فهمي چي نوشتي ؟
اگر مي خواهيد به سوالهايي كه مي پرسيد زود جواب داده شود متن سوال خود را كامل و قابل فهم بنويسيد.

[sanaz13x]

سلام آقا ببخشید
من می خوام وقتی در برنامه e وارد می شود برنامه بره به فایل مثلا ali.dbi و از داخل اون از خط 12 تا 15 رو بیاره تو یه تکست باکس چاپ کنه من چی کار کنم

[hamed_Arfaee]

با سلام
قسمت اولش كه چيز سختي نيست
ولي خوندن از خط خاصي از يك فايل با اين تابع ميشه
(( كپي رايت )) اين تابع رو امير جان نوشته : 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

اگه بازم مشكلي بود يا منظورت اين نبود بگو