FAPI یا API فارسی

[Pedram_HookEx]

آقا پدرام.در خدمتيم.
شما بگو چيكار كنم؟
راستي آقا حامد هم يه خرده آموزش sql گذاشته.

خوب دستور کار رو به صورت پیغام خصوصی برات فرستادم البته کار زیادی نیست فقط شما همون ملزومات مورد نیاز و مهم رو به اون پروژه اضافه کن و در آخر هم اگه تونستی فرم ریسایزت رو مثل API-Guide درست کن میدونم وقت گیر هست ولی منم حسابی مشغول این دیتابیس هستم


خوب حالا هم میریم سر گزارش کار خودم
اول بگم که دقیقا 7 ساعته که دارم برنامه رو برای چسبوندن دیتابیس ها مینویسم
میزارم اینجا همه ببینن اینقدر پیچ در پیچ شد که اگه بگین دوباره بنویس مخم قاطی میکنه

لینک برنامه چسبونگر
البته الان کاربردی نداره و کاربردش همون زمان چسبوندن بود

خوب چسبوندن دیتابیس قدیمی به صورت کامل تموم شد
یعنی IncludedFuncs و ExampleName ها و .... هم که با هم ناسازگار بودن هم وارد شدن

در ضمن سعی کردم تا اونجایی که میتونم همون گفته های علی خان رو اجرا کنم یعنی سعی کردم اکثر اون جاهایی که میشد به صورت اوتوماتیک وارد کرد رو وارد کنم و بقیه هم نیمه اوتوماتیک

این هم دیتابیس (البته در اینجا فقط از پروژه قبلی هست)

لینک دانلود دیتابیس

اما مسئله اصلی که دارم روش کار میکنم وارد کردن 457 مثالی هست که علی خان گذاشته خوب اگه بخواییم اینو دستی وارد کنیم حداقل یک ماه طول میکشه
برای همین دارم روی وارد کردن اونا به صورت اوتوماتیک کار میکنم وقتی بررسی شون کردم به چندتا نتیجه رسیدم
1 اینکه میشه مستقیم سورس رو از خود فایل های Frm. گرفت با این تابع هم محتویات اون فایل رو تبدیل میکنیم به سورس خالص یعنی نوشته هایی که به تنضیمات مربوطه توسط این تابع حذف میشه
خوب دوتا تابع برای این کار نوشتم

کد:

Private Function Get_Content(cExpression As String) As String
Dim Start_Pos As Long

Start_Pos = InStr(1, cExpression, "Attribute VB_Exposed")
Start_Pos = InStr(Start_Pos + 1, cExpression, vbCrLf)
Get_Content = Mid(cExpression, Start_Pos + 1)
End Function

خوب در قسمت آخر وقتی که محتویات رو گرفتیم باید بدونیم که در اون مثال از چه توابعی استفاده شده که تابع زیر یک مثال رو بررسی میکنه و اگه مثلا اگه دوتا تابع چه از نوع Sub یا Function پیدا کرد اونا رو بصورت تابع1;تابع2 خروجی میده
اینم تابع

کد:

Private Function Get_Function_Included(cExpression) As String
On Error Resume Next
Dim Funcs As String
Const FN = "function"
Const SN = "sub"
Const LN = "lib"
Dim RowEC
RowEC = Split(cExpression, vbCrLf)
Dim FinalEX
For i = 0 To UBound(RowEC) - 1
If InStr(1, LCase(RowEC(i)), "lib") Or Left(RowEC(i), 1) = "'" Then
FinalEX = FinalEX & RowEC(i) & vbCrLf
End If
Next i

For i = 1 To Len(FinalEX)
    If InStr(i, LCase$(FinalEX), FN) Then
    first_Pos = InStr(i, LCase(FinalEX), FN)
    last_pos = InStr(first_Pos, LCase$(FinalEX), LN) + Len(LN)
    If Err.Number = 5 Then GoTo Er1
    CE = Mid$(LCase(FinalEX), first_Pos, last_pos - first_Pos)
    CE = Replace(CE, LN, ""): CE = Replace(CE, FN, ""): CE = Replace(CE, " ", "")
    Funcs = StrConv(CE, vbProperCase) & ";" & Funcs
    i = last_pos - 1
    End If

Next i
Er1:
Err.Clear
For i = 1 To Len(FinalEX)
    If InStr(i, LCase(FinalEX), SN) Then
    first_Pos = InStr(i, LCase$(FinalEX), SN)
    last_pos = InStr(first_Pos, LCase$(FinalEX), LN) + Len(LN)
    CE = Mid$(LCase(FinalEX), first_Pos, last_pos - first_Pos)
    If Err.Number = 5 Then GoTo Er2
    CE = Replace(CE, LN, ""): CE = Replace(CE, SN, ""): CE = Replace(CE, " ", "")
    Funcs = StrConv(CE, vbProperCase) & ";" & Funcs
    i = last_pos - 1
    End If

Next i
Er2:

Get_Function_Included = Left(Funcs, Len(Funcs) - 1)
End Function

خوب اگه روش بهتری برای چسبوندن این مثال ها به ذهنتون میرسه بگین

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