مبدل كدپيج ايران سيستم به ويندوز و بالعكس

[ashkan209]

سلام دوست من
اول از همه سپاس فراوان بابت نگارش جدید dll
اما یک مورد اشکال که نمیدونم اشکال منه یا اشکال برنامه ، در هرصورت ممنون میشم راهنمائی بفرمائید : (اشکال اینه که بعد از تبدیل باز هم فونتها به هم چسبیده اند)
من ار ورژن 2 برنامه استفاده کردم و ار همان خصوصیت گذاشتن space برای تبدیل از داس به ویندوز
تصویر 1 : سورس داس (ایران سیستم)
تصویر 2 : بعد از تبدیل به ویندوز به ورژن 2
و اینم فانکشن من که کار تبدیل را انجام میده

Public Function Convertor_dw(ByVal value As String) As String

        Dim convert As New W2D_D2W.ClsDos2Win_Iran

        convert.ShowMsgBoxErrorIfOccur = False

        convert.SpaceKind = enSpaceKind.Space_Chr_32

        Dim Iran_System_Text_Dos As String = value

        Dim ret As String = convert.Dos2Win_ReadFromTextInWin(Iran_System_Text  _Dos)

        Return (ret)

    End Function

2.jpg1.jpg

[M_Man_M]

سلام دوست من
اول از همه سپاس فراوان بابت نگارش جدید dll
اما یک مورد اشکال که نمیدونم اشکال منه یا اشکال برنامه ، در هرصورت ممنون میشم راهنمائی بفرمائید : (اشکال اینه که بعد از تبدیل باز هم فونتها به هم چسبیده اند)
من ار ورژن 2 برنامه استفاده کردم و ار همان خصوصیت گذاشتن space برای تبدیل از داس به ویندوز
تصویر 1 : سورس داس (ایران سیستم)
تصویر 2 : بعد از تبدیل به ویندوز به ورژن 2
و اینم فانکشن من که کار تبدیل را انجام میده

Public Function Convertor_dw(ByVal value As String) As String

        Dim convert As New W2D_D2W.ClsDos2Win_Iran

        convert.ShowMsgBoxErrorIfOccur = False

        convert.SpaceKind = enSpaceKind.Space_Chr_32

        Dim Iran_System_Text_Dos As String = value

        Dim ret As String = convert.Dos2Win_ReadFromTextInWin(Iran_System_Text  _Dos)

        Return (ret)

    End Function

2.jpg1.jpg

با عرض سلام

شما تنها نوع فاصله را مشخص کرديد ولي مشخص نکرديد که آيا اين حرف مشخص شده ( space ) بعد از حروف بزرگ بيايد يا خير ؟

اين ويژگي همان AddSpaceAfterUpperCase مي باشد .