تبدیل فونتهای داس به ویندوز در بیسیک

[majjjj]

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

[touraj]

یعنی چی؟ میشه منظورتو واضحتر بگی؟

[CodeMasterX]

یعنی چی که شما میخوایی فونت های داس رو به فونت های ویندوز تبدیل کنی ؟
شما واضح تر توضیح بده اینجوری خیلی گنگ هست، برای چه کاری و کجا میخوایی تبدیل انجام بشه، ثانیا شما توی ویندوز اصلا مگه فونت داسی داری استفاده میکنی که حالا میخوایی تبدیلش کنی ؟

[noorsoft]

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

[touraj]

شما توی ویندوز اصلا مگه فونت داسی داری استفاده میکنی که حالا میخوایی تبدیلش کنی ؟

منم نفهمیدم. چرا باید از فونت داس تو ویندوز استفاده کرد؟ به نظرم هیچ توجیهی نداره.

[CodeMasterX]

چرا دوست عزیز توجیح که داره.شما تا حالا شده یه سند Word رو باز کنی و برنامه نتونه فونت ها رو بخونه ؟ برنامه Word همچین موقعی به شما امکان میده که فونت ها رو به فونت های مختلف مثل داس،یونیکد و غیره تبدیل کنی.
ولی باید دید این دوست ما چه فونت هایی رو از چه منبعی و به چه مقصودی مبخوان تبدیل کنن.

[touraj]

چرا دوست عزیز توجیح که داره.شما تا حالا شده یه سند Word رو باز کنی و برنامه نتونه فونت ها رو بخونه ؟ برنامه Word همچین موقعی به شما امکان میده که فونت ها رو به فونت های مختلف مثل داس،یونیکد و غیره تبدیل کنی.
ولی باید دید این دوست ما چه فونت هایی رو از چه منبعی و به چه مقصودی مبخوان تبدیل کنن.

راست میگی. به این جنبه فکر نکرده بودم. خب، پس توجیه داره. فکر کنم همونی که noorsoft گفت بد نباشه.

[majjjj]

من می خواهم یک بانک فاکس 2.6 داس رو به یک بانک اکسس تبدیل کنم
البته میدونم که تو انجمن فاکس پرو این کار انجام شده
ولی من میخواهم با بیسیک این کار رو انجام بدم
البته بگم که من فاکس رو بهتر از بیسیک میشناسم

[majjjj]

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

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

[majjjj]

چرا دوست عزیز توجیح که داره.شما تا حالا شده یه سند Word رو باز کنی و برنامه نتونه فونت ها رو بخونه ؟ برنامه Word همچین موقعی به شما امکان میده که فونت ها رو به فونت های مختلف مثل داس،یونیکد و غیره تبدیل کنی.
ولی باید دید این دوست ما چه فونت هایی رو از چه منبعی و به چه مقصودی مبخوان تبدیل کنن.

اگه بتونین راهنمایی کنین ممنون میشم

[noorsoft]

Function ConvertSaebToDos(ByVal Text As String) As String
Dim i As Integer
Dim m As String, m2 As String, t As String, t2 As String, ww As String
Dim kk As Integer
Dim CapsF As String


'Text = FToF("xyd")



CapsF = DosUString

t = FrmMain.Farsi1.Farsi_To_En(Text)
t = Mid(t, 2, Len(t) - 2)

For i = 1 To Len(t)
m = Mid(t, i, 1)
If Len(t) >= (i + 1) Then t2 = Mid(t, i + 1, 1) Else t2 = " "

kk = InStr(EnglishString, m)

If kk > 0 Then
If m2 = "" Then
ww = Mid(DosLString, kk, 1)
ElseIf t2 = " " Then
ww = Mid(DosUString, kk, 1)
Else
ww = Mid(DosLString, kk, 1)
End If

Select Case ww
Case Chr(232) 'ghain
If m2 = "" Then
m2 = Chr(232)
Else
If (InStr(CapsF, Left(m2, 1)) Or Asc(Left(m2, 1)) = 145) And Not Asc(Left(m2, 1)) = 175 Then
m2 = Chr(232) & m2
Else
m2 = Chr(231) & m2
End If
End If
Case Chr(228) 'ain
If m2 = "" Then
m2 = Chr(228)
Else
If (InStr(CapsF, Left(m2, 1)) Or Asc(Left(m2, 1)) = 145) And Not Asc(Left(m2, 1)) = 175 Then
m2 = Chr(228) & m2
Else
m2 = Chr(227) & m2
End If
End If
Case Chr(144) 'Alef
If m2 = "" Then
m2 = Chr(144)
Else
If InStr(CapsF, Left(m2, 1)) Then
m2 = Chr(144) & m2
Else
m2 = Chr(145) & m2
End If
End If
Case Chr(145) 'Alef
If m2 = "" Then
m2 = Chr(144)
Else
If InStr(CapsF, Left(m2, 1)) And Asc(ww) <> 145 Then
m2 = Chr(144) & m2
Else
m2 = Chr(145) & m2
End If
End If
Case Else
m2 = ww & m2
End Select
Else
If m = "G" Then
m2 = Chr(242) & m2
Else
m2 = m2 & m
End If
End If
Next
ConvertSaebToDos = m2
'open "c:\test.txt" for output as #1:? #1,m2 :close

End Function

[sohrab_a1b2c3]

من یه نرم افزار دارم این کارو برات انجام می ده
اگه خواستی بگو برات بفرستم

[majjjj]

اگه اشکالی نداره اونو برای استفاده همگی دوستان بگذارید تا همه استفاده کنند