قرار دادن فایل تکست در یک ماژول

[Shahab.]

سلام علیکم.
یک سئوال داشتم
فرض کنید یک فایل تکست در کنار برنامه داریم که برناممون از این فایل بطور موقت استفاده میکنه مثلا محتویات فایل اینجوریه :

علیرضا
صبوری
رحمان
معتدل
سارا
فدایی

________________________
یعنی فرمت کلیش اینطوریه :
اسم
فامیل
________________________
و مقادیر این فایل تکست هم همیشه ثابته.
روش کار برنامه هم اینه که اسم رو بهش میدیم و برنامه واسمون فامیل رو میاره.
حالا میخوام بدونم چطوری میتونم محتویات این فایل تکست رو در یک ماژول قرار بدم که با برنامه کامپایل بشه و از دید کاربر مخفی بشه؟
از ریسورس هم نمیخوام استفاده کنم. فقط میخوام این رشته ها رو در ماژول قرار بدم.

ممنون میشم راهنمایی کنید.

[setroyd]

فایل تکست نمیتونی مگر اینکه دستی بنویسی تو ماژول مثلا

Private Function callname(name As String) As String
If name = "علي" Then callname = "تهراني"

End Function
Private Sub Command1_Click()
Me.Caption = callname("علي")
End Sub




همانطور که میبینید به این شکل است , شما فقط برای استفاده در ماژول میتونی بجای private از متد Public استفاده کنی اگر هم نخواستی در ماژول باشه و در همین فرم باشه میتونی همون private بزاری بمونه .

[Shahab.]

الان در همین مثالی که شما زدی میخوام بدونم چطوری میشه اگر طرف وارد کرد "عل" بازم فامیل تهرانی رو بیاره.
پیاده سازی اینکار در دستورات if چجوریه؟
استفاده از select case بجای if بهتر نیست؟

[m.4.r.m]

فرقی نداره if باشه یا Select چون اسم های شما ثابت هستند می تونی اسم رو پیدا کنی فامیلی رو بنویسی اونم یه راه ساده می تونی استفاده کنی دو تا آرایه بگیر تو یکی اسم ها رو نگه دار تو دومی فامیلی هارو ولی به ترتیب آرایه اول مثلا اندیس اول علی نوشتی تو آرایه دوم تو اندیس اول هم فامیلیشو بنویس بعد میتونی با یه دستور معادل رو برگردونی