ABA


"לתותחים מחפש דרך להפוך עברית בקובץ ACCESS"
גירסת הדפסה        
קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6527 מנהל    סגן המנהל    מפקח   Winner    צל"ש   מומחה  
אשכול מספר 6527
The One

   22:08   10.07.03   
אל הפורום  
  לתותחים מחפש דרך להפוך עברית בקובץ ACCESS  
 
   עבר עריכה לאחרונה בתאריך 10.07.03 בשעה 22:39
 
לתותחים שלום .
יש לי קובץ אסקי שהפכתי אותו ל טבלה ב ACCESS אבל כיוון שהוא ממקור דוס
העיברית יוצאת הפוך ....
צריך מקרו או תוכנה או כל דבר אחר שיעזור לי להפוך את העיברית ע"י הרצה שלו .

הקובץ כולל עשרות אלפי רשומות כך שתוכנת "הפוך" לא בדיוק נותנת פיתרון .


בתודה מראש למי שיעזור או ינסה לפחות לעזור ...

THE ONE .


                                שתף        
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

  האשכול     מחבר     תאריך כתיבה     מספר  
  אם לאמר את האמת לא נתקלתי בבעיה כזו codmaster 11.07.03 11:19 1
     בקשר להצעה של קודמסטר Stilgar 12.07.03 21:52 2
         מה שנכון נכון codmaster 13.07.03 09:31 3
  אתם עובדים קשה מדי eev 18.07.03 13:06 4
     רעיון מצויין אבל מיצבשת 21.07.03 09:50 6
  קבל תשובה תכנותית מיצבשת 21.07.03 09:47 5

       
codmaster

   11:19   11.07.03   
אל הפורום  
  1. אם לאמר את האמת לא נתקלתי בבעיה כזו  
בתגובה להודעה מספר 0
 
   אף פעם.
אבל זה לא עוזר לך , פתרון דיי פרימיטיבי שאני יכול לתת לך הוא
פשוט לכתוב פונקציה שתקרא Reverse בתוך מודול חדש באקסס ואז פשוט לכתוב שאילתת SQL שתעשה את העבודה שלך.
לדוגמא נניח שקיימת לנו הפונקציה ההופכת הבאה בתוך מודול של אקסס:

Function reverse(str As String)
Dim temp
For i = Len(str) To 1 Step -1
temp = temp & Mid(str, i, 1)
Next
reverse = temp
End Function

עכשיו אני יכול להשתמש בפונקציה בשאילתות ה-SQL שלי , נאמר שלטבלה שלך
קוראים users ויש שדות בשם first_name,last_name,address
אז שאילתת ה-SQL תיראה כך:

update users set
first_name = reverse(first_name),
last_name = reverse(last_name),
address = reverse(address)

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

עדן



                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
Stilgar

   21:52   12.07.03   
אל הפורום  
  2. בקשר להצעה של קודמסטר  
בתגובה להודעה מספר 1
 
   ההצעה תעבוד, אלא אם כן בטקסט יש מספרים וסימנים אחרים, שאז הם יתערבבו אחד בשני.
ניתן לעשות את אותה פעולה ב-VBA, VB, ו-ASP באותה קלות.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
codmaster

   09:31   13.07.03   
אל הפורום  
  3. מה שנכון נכון  
בתגובה להודעה מספר 2
 
   אבל כמובן ההצעה שנתתי היתה הכי טריויאלית , ניתן לתחכם אותה כדי שתעבוד עם מספרים וכל סימן בעייתי אחר.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
eev

   13:06   18.07.03   
אל הפורום  
  4. אתם עובדים קשה מדי  
בתגובה להודעה מספר 0
 
   בתקיית ההתקנה של אופיס.
ביחד עם אופיס יש קובץ שנקרא CONVTEXT.EXE

זוהי תוכנה קטנה של מיקוסופט שיודעת להפוך עברית מכל פורמט לכל פורמט
ללא בעיות של פיסוק ומספרים.

כל מה שאתה צריך זה לייצא את הטבלה שלך לקובץ טקסט
להריץ את התוכנה הנ"ל
ולייבא חזרה את התוצאה

בהצלחה


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
מיצבשת

   09:50   21.07.03   
אל הפורום  
  6. רעיון מצויין אבל  
בתגובה להודעה מספר 4
 
   התוכנית מתאימה להפעלה על קובץ בודד ולא במהלך תכנותי של יבוא קבצים מדוס (גם זה קורה לעיתים)

אגב יש לי ממש תוכנה ליבוא קבצים והמרתם מפורמט לפורמט.


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד
מיצבשת

   09:47   21.07.03   
אל הפורום  
  5. קבל תשובה תכנותית  
בתגובה להודעה מספר 0
 
   Option Compare Database
Option Explicit
'--- המרה מ- אסקי לאנסי -----
Public Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" ( _
ByVal lpszSrc As String, _
ByVal lpszDst As String) As Long

Function Reverse_Heb(sData As String) As String
Dim sOutPut As String, sTMP$, ezr$
Dim Ret As Long
Dim i As Integer

sOutPut = Space(Len(sData))
Ret = OemToChar(sData, sOutPut) 'äîøä ì- ANSI

For i = 1 To Len(sOutPut)
ezr = Mid(sOutPut, i, 1)
Select Case Asc(ezr)
Case 32 'space
sTMP = ezr + sTMP + ezr
Case 48 To 57 'Numbers
sTMP = sTMP + ezr
Case 65 To 122 'English
sTMP = sTMP + ezr
Case 224 To 250 'Hebrow reverse
sTMP = ezr + sTMP
Case Else 'elegal chars
sTMP = sTMP + ezr u can drop this line
End Select
Next i

Reverse_Heb = sTMP
End Function


                                                         (ניהול: מחק תגובה)
מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

תגובה מהירה  למכתב מספר: 
 
___________________________________________________________________

___________________________________________________________________
למנהלים:  נעל | תייק בארכיון | מחק | העבר לפורום אחר | מחק תגובות | עגן אשכול
       



© כל הזכויות שמורות ל-רוטר.נט בע"מ rotter.net