تبدیل کد پیج

[linux]

سلام
حضرات!

یه برنامه باید درست کنم که کد پیج جفنگ ایران سیستم را به کدپیج مشنگ 1256 تبدیل
کنه تا اینجاش مشکلی نیست!
فایل را بصورت ترتیبی باز می‌کنم خط به خط می‌خونم!
کدها را عوض میکنم
ولی خیلی کنده! یعنی برای 2 مگ فایل 10 دقیقه طول میده!
حالا همین کار را تو عکس می‌کنم به جای باز کردن فایل
فیلد را باز میکنم و تغیرش میدم!
در کمتر از 1 ثانیه مشکل من حل میشه
فکر کنم سر باز کردن فایل مشکل دارم
چطور می شه فایل را سریعتر خواند؟

[qerenfil]

من هم دقیقا همین مشکل شمارو دارم با این تفاوت که :
۱- من نمیتونم اون برنامه ﴿ کانورتور ﴾ رو درست کنم
۲- مال من باید کد پیج پشنگ سینا را به مایکروسافت کنه
۳- من اصلا برنامه نویسی بلد نیستم
۴- کمک کمک کمک
۵- کسی میتونه یه یه مبدل بنویسه که فایل متنی که در کدپیج ایران سیستم،سینا،پارسا،مایکروسا فت و ... نوشته شده را رو بگیره و به همدیگه یعنی ایران سیستم،سینا،پارسا،مایکروسا فت و ... تبدیل کنه ،البته اگر هر فایلی رو بتونه بگیره که معرکه میشه

[qerenfil]

حاجی پس چی شد

[MM_Mofidi]

استفاده کن محصول ویراشگر است2wpf از برنامه
تقریبا همه کد پیجها رو به هم تبدیل میکنه

[linux]

من مشکل را حل کردم خیلی وقت پیش! 2wpf هم به درد خود ویراشگر می خوره با اون نما شون!

[qerenfil]

من مشکل را حل کردم خیلی وقت پیش! 2wpf هم به درد خود ویراشگر می خوره با اون نما شون!

khob be ma ham begin

[MM_Mofidi]

با اون نما شون
اینو هستم :تشویق:

[linux]

Private namacodepage() As String = {"-", "q", "w", "e", "E", "r", "R", "t", "T", "y", "Y", "u", "U", "i", "p", "P", "o", "O", _
"a", "A", "s", "d", "D", "f", "g", "G", "h", "H", "j", "k", "l", "L", _
"z", "x", "c", "v", "b", "B", "n", "m", ","}



Private win1256() As String = {"", "ض", "ص", "ث", "ظ", "ق", "ط", "ف", "ذ", "غ", "د", "ع", "U", "ه", "ح", "چ", "خ", "ج", _
"ش", "َـ", "س", "ی", "ئ", "ب", "ل", "آ", "ا", "ء", "ت", "ن", "م", "ک", _
"پ", "ژ", "ز", "ر", "لا", "لا", "گ", "و", "ّ،"}
Public Function NamaToWindows1256(ByVal infile As String, ByVal outfile As String)
Dim en As System.Text.Encoding
en = en.Default


Dim sr As New IO.StreamReader(infile, en)
Dim sw As New IO.StreamWriter(outfile, False, en)
Dim strTmp As String 'جهت ذخیره یک خط از فایل
Dim i As Integer = 0
Dim code As Integer
Dim s1 As String
Dim s2 As String
Dim s3 As String

Dim tc1 As New Date
tc1 = Now




Do While sr.Peek() >= 0
Application.DoEvents()
strTmp = sr.ReadLine
Dim indx As Integer
Try
For i = 0 To strTmp.Length - 1
s1 = strTmp.Substring(i, 1)

indx = Array.IndexOf(namacodepage, s1)
If indx >= 0 Then
s2 &= win1256(indx)
Else
s2 &= s1

End If
Next
Catch ex As Exception
MsgBox(s1 & " " & indx)
End Try

If s3 = "" Then s3 = s2
s3 = s3.Replace(" ", " ")
sw.Write(s3 & vbCrLf)
s1 = ""
s2 = ""
s3 = ""
Loop
Beep()
sr.Close()
sw.Close()
Beep()



Dim tc2 As New Date
tc2 = Now

Dim ttt As Long
ttt = tc2.Ticks - tc1.Ticks
Dim ts As New TimeSpan(ttt)
MsgBox(ts.Duration.ToString)

End Function

این برای تبدیل کد پیج نما به ویندوز
[/code]

[sh]

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

[linux]

آره سر فرصت میزارم اینجا

[sh]

قربون دستت :flower: اگر تونستی زودتر

من برنامه برای این کار دارم (کد فاکس پرو هست)

ولی میخواستم از داخل برنامه خودم این کار رو انجام بدم و از اونجائی که اکثر بانکهای تحت داس با کد پیج ایران سیستم هست به یک کد که تحت VB باشه نیاز داشتم

اگر تونستی کمی راجب فلسفه این مبدلها هم توضیح بده

[linux]

می تونی یکی از اون فایهایی که داریی به صورت txt اکسپورت کنی و در اختیار من قرار بدی
اگر 100kb هم باشه بسه
یه فایلی باشه مخلوط عدد و حرف

[cmdcenter]

میشه مبدل ایران سیستم به ویندوز رو برام میل کنی یا کدش رو اینجا بنویسی؟ ممنون
cmdcenter [at] yahoo [dot - com]