בקשת מידע | מקלדת עברית

[לומדעס]

@פינחסס אמר בבקשת מידע | מקלדת עברית:

@לומדעס
מה הכוונה שזה כאילו עוזר לי? כי אם כן אני לא צריך אני צריך ממיר

https://mitmachim.top/post/222892

[פינחסס]

@לומדעס
זה ג"כ לא טוב לי כי אני צריך דבר שימיר לי את זה kunsgx לעברית אם אתה שם לב זה אותיות לומדעס אבל באנלית

[ראובן שבתי]

@פינחסס אמר בבקשת מידע | מקלדת עברית:

קורא לי לפעמים שאני כותב תוך כדי שיחה ורק פעם ב 5-8 שורות אני בודק מה כתבתי אבל לפעמים מה שקורה זה שאני בטעות כתבתי באנגלית האם יש תוכנה שממירה את זה למילים שרציתי לכתוב (לאפוקי תרגום שיביא לי ג'יבריש)

יש תוכנה בשם "הפוך על הפוך" תחפש בפורום

[פינחסס]

@ראובן-שבתי
לא מצאתי כזה פורום

[ראובן שבתי]

@פינחסס אמר בבקשת מידע | מקלדת עברית:

@ראובן-שבתי
לא מצאתי כזה פורום

כי לא חיפשת!!
https://www.google.co.il/search?q=site:mitmachim.top הפוך על הפוך

[פינחסס]

@ראובן-שבתי
חיפשתי בפורום ובאמת לא מצאתי אבל עכשיו שאתה שולח אני רואה שזה נשלח לכרום

[ראובן שבתי]

@פינחסס אמר בבקשת מידע | מקלדת עברית:

@ראובן-שבתי
חיפשתי בפורום ובאמת לא מצאתי אבל עכשיו שאתה שולח אני רואה שזה נשלח לכרום

זה לא נשלח לכרום
זה נמצא בפורום
אם היית קורא את המדריך לשימוש בפורום היית יודע איך עושים חיפוש בפורום על ידי מנוע החיפוש של גוגל

[פינחסס]

1. קראתי אותו אבל אתה באמת חושב שזה מה שעומד לי כרגע בראש
   2.אני רק אח"כ שמתי לב שהכרום שלח אותי לפה חזרה וסליחה

[ישעיהו כץ]

@פינחסס לא הבנתי למה ללכת ולחזור ולא להוריד ישירות מהאתר את הגירסא האחרונה, הנה הכתובת:
http://www.langover.com/

[פינחסס]

@ישעיהו-כץ
תודה רבה לכל העוזרים מצאתי איזה אתר שאני לא זוכר כרגע איך קוראים לו כי סימנתי אותו במחשב ועכשיו אני לא עליו אבל כשהיה עליו אני אשלח קישור לאתר הלז

[מאקרו]

@פינחסס

Public Sub EnHeb()
   Const listEn = "qwertyuiopasdfghjkl;'zxcvbnm,./()[]{}"
   Const listHeb = "/'קראטוןםפשדגכעיחלךף,זסבהנמצתץ.)(][}{"
   Dim Status As Long
   Dim i As Long
   Dim Str As String
   Dim Result As String
   Str = Selection
   Do While Status = 0 And Mid(Str, i + 1, 1) <> ""
       If InStr(listEn, Mid(Str, i + 1, 1)) > 0 Then Status = -1
       If InStr(listHeb, Mid(Str, i + 1, 1)) > 0 Then
           If Status = -1 Then Status = 0 Else Status = 2
       Else
           Status = IIf(Status = -1, 1, 0)
       End If
       i = i + 1
   Loop
   For i = 1 To Len(Str)
       If Status = 2 Then
           If Mid(Str, i, 1) = "" Then
           ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
               Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
           ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
               Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
           Else
               Result = Result & Mid(Str, i, 1)
           End If
       Else
           If Mid(Str, i, 1) = "" Then
           ElseIf InStr(listEn, Mid(Str, i, 1)) > 0 Then
               Result = Result & Mid(listHeb, InStr(listEn, Mid(Str, i, 1)), 1)
           ElseIf InStr(listHeb, Mid(Str, i, 1)) > 0 Then
               Result = Result & Mid(listEn, InStr(listHeb, Mid(Str, i, 1)), 1)
           Else
               Result = Result & Mid(Str, i, 1)
           End If
       End If
   Next i
   Selection = Result
End Sub

קוד ש @מגדלים הביא פעם מאיפשהו