D
א. זה לא VBA, זה VB.NET
ב. מאוד הגיוני שזה יקרא מבנים פנימיים (משתנים לולאות תנאים וכו'), וידנית אכן זה אפשרי, אבל עד כה לא מצאתי איך עושים.
ג. בקובץ VB.NET קל יחסית למצוא משתנים, אבל בקובץ C# זה קשה מאוד! כך נראה לי.
ג. הצפיות כוללות גם משתמשים לא רשומים.
פורסם במקור בפורום CODE613 ב02/08/2013 13:32 (+03:00)
איך ?
אחרי הוספת רפרנס לSystem.Web' קוד לC# וVB.NET כאחד:
System.Web.HttpUtility.UrlEncode("שלום abc")
פורסם במקור בפורום CODE613 ב02/08/2013 16:00 (+03:00)
אם יש לך עוד בעיות,
השתמש אולי בקוד זה (אצלי עובד מצויין):
Private Const CP_UTF8 = 65001
Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" (ByVal CodePage As Long, ByVal dwflags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Public Function UTF16To8(ByVal UTF16 As String) As String
Dim sBuffer As String
Dim lLength As Long
If UTF16 <> "" Then
lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, 0, 0, 0, 0)
sBuffer = Space$(lLength)
lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, CLng(StrPtr(sBuffer)), Len(sBuffer), 0, 0)
sBuffer = StrConv(sBuffer, vbUnicode)
UTF16To8 = Left$(sBuffer, lLength - 1)
Else
UTF16To8 = ""
End If
End Function
Public Function URLEncode( _
StringVal As String, _
Optional SpaceAsPlus As Boolean = False, _
Optional UTF8Encode As Boolean = True _
) As String
Dim StringValCopy As String: StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)
Dim StringLen As Long: StringLen = Len(StringValCopy)
If StringLen > 0 Then
ReDim result(StringLen) As String
Dim I As Long, CharCode As Integer
Dim Char As String, Space As String
If SpaceAsPlus Then Space = "+" Else Space = "%20"
For I = 1 To StringLen
Char = Mid$(StringValCopy, I, 1)
CharCode = Asc(Char)
Select Case CharCode
Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
result(I) = Char
Case 32
result(I) = Space
Case 0 To 15
result(I) = "%0" & Hex(CharCode)
Case Else
result(I) = "%" & Hex(CharCode)
End Select
Next I
URLEncode = Join(result, "")
End If
End Function
לקוח מפה http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
עם התאמות קלות ל64 ביט.
פורסם במקור בפורום CODE613 ב31/07/2013 17:59 (+03:00)
לגבי המגבלות של עד כך וכך רשומות ועד כך וכך משתשמים, יש מקום שכתוב מספרים במקום "כך וכך"????
בהגדרות הSQLSERVER יש הגדרה לכמות חיבורים בו זמנית, ונדמה לי גם לכמות תעבורה.
כמובן שגם כשהשרת הSQL מאפשר, אם יכולת המחשב מוגבלת תהיה האטה ואף בעיות לא צפויות.
פורסם במקור בפורום CODE613 ב22/08/2013 16:14 (+03:00)
ב"ה האתר שלנו עובד, ומתרחב יחסית.
האתר הוקם על ידי כמה חברים פה,
לעזור להעזר וחלוק עצות וניסיון בנושאי תכנות.
האתר הוקם בין יום (או לילה) בצורה טיפה מאולתרת וזמנית: השם, הדומיין, מערכת הפורום, והעיצוב וכו'.
אז כעת נקבע השם החדש CODE613M.
מה משמעות השם?
א. אתר תכנות (code)
ב. קהילה המהלכת עם ציצית (m613), כלומר גאים בהיותם יהודים, ודבקים בהגדרה זו.
ג. נושא האתר הוא משני, תת נושא, לנושא העליון שהוא לחיות, חיים הקרויים חיים.
אפשר לתמוה, מה עניין תכנות, להשקפת חיים. מה הקשר.
זה אפי' נראה מיסיונריות לתקוע ענייני דת בענייניים טכניים מובהקים.
אנו אכן לא רוצים בכלל לערב עניינים, אבל אנו רוצים להבהיר עקרונות ומדיניות.
הקהילה/האתר פתחים בפני כל,
אך אחרי שהכרזנו בשער כל עקרונותינו, גם מי שזר להם, יוכל להשתתף תוך כדי שמירה על הערכים שלנו.
פורסם במקור בפורום CODE613 ב26/07/2013 16:10 (+03:00)
אני משתמש בitextsharp
הנה קוד בVB
Private Function ReadPdfFile(fileName As String) As String
Dim text As New StringBuilder()
If File.Exists(fileName) Then
Dim pdfReader As New PdfReader(fileName)
'For page As Integer = 1 To pdfReader.NumberOfPages
Dim strategy As parser.ITextExtractionStrategy = New parser.SimpleTextExtractionStrategy()
Dim currentText As String = parser.PdfTextExtractor.GetTextFromPage(pdfReader, 1, strategy)
currentText = New String(currentText.Reverse().ToArray)
text.Append(currentText)
'Next
pdfReader.Close()
End If
Return text.ToString()
End Function
פורסם במקור בפורום CODE613 ב26/07/2013 15:00 (+03:00)
נכון, בקוד שלי יש טעות, צריך להוסיף אחרי המילה Document. את המילה Body.
בקשר לגודל הDLL, אכן אם זה נושא בשבילך זה בעיה שיש לתת עליה את הדעת.
(ביחס למה שזה עושה, זה קטן, אבל אתה לא צריך את כל זה לעניין קריאה גרידא).
אם אתה ממשיך עם הקוד ההוא עשה כעצתי ו"דבג" אותו צעד צעד.
פורסם במקור בפורום CODE613 ב25/07/2013 17:45 (+03:00)
הנה קוד מעודכן למה שביקשת:
Dim Doc = Packaging.WordprocessingDocument.Open(filename, False)
Dim tb As New Text.StringBuilder
For Each P In Doc.MainDocumentPart.Document.Elements(Of Wordprocessing.Paragraph)()
tb.Append(P.InnerText)
tb.Append(vbCrLf)
Next
Doc.Close()
Return tb.ToString()
פורסם במקור בפורום CODE613 ב25/07/2013 16:38 (+03:00)
נכון לא קראתי היטב את הודעתך ("רק לאחר סגירת התוכנית אפשר לפתוח"). אז טעיתי.
הבעיה היא בהחלט קובץ בשימוש. אני לא יכול להצביע על בעיה בלי שתיתן קוד. לך הייתי מציע לפתוח פרוייקט חדש וללכת שלב שלב בשימוש עם הספרייה, ולראות מה נועל את הקובץ.
מה שלא הבנת לגבי השוואת חבילות זה כבר לא רלוונטי בגלל טעותי דלעיל. בכל אופן לפי מה שהייתי סבור שהקובץ ננעל לעולמים, אפשר לפתוח את הקבצים ידנית ולחפש הבדל בין נעול לבין שאינו.
בקשר להעתקת הקובץ שפותרת ספקות, גם כבר לא רלוונטי בגלל טעותי דלעיל. התכוונתי בדיוק למה שכתבת, שאחרי העתקה מנסים עם המועתק, ואז אם יש בעיה סימן שהבעיה איננה קובץ בשימוש. תנסה יותר להבין אותי להבא...
ובקשר לספריה שהצעתי לך:
אתה מתלונן שהיא נותן טקסט מופרד בין פסקאות. אמת. ידעתי זאת.
אבל אתה סבור שזה סיבה שלא להשתמש בה? לא יכולת לשאול איך רואים מופרד לפסקאות?
תגיד מה אתה רוצה ואיך אם אתה לא מסתדר איתה. אין דבר שא"א לעשות איתה. כולל באקסל וכל תוכנות האופיס.
פורסם במקור בפורום CODE613 ב25/07/2013 16:28 (+03:00)
לדעתי הבעיה היא לא קובץ בשימוש, אלא סימון כסופי וכדומה.
אתה יכול לבדוק זאת בקלות ע"י השוואת שני ה"חבילות" (הקבצים אחרי פתיחת ZIP).
ככלל, כשיש ספק אם בעיה מסויימת היא עקב שימוש של יישום אחר, העתקה של הקובץ פותרת את הספק.
אבל, וה"אבל" הזה גדול, אני לא מבין מה ההוא מCodeproject יותר טוב מהשימוש בOpen XML.
לכן אני לא מבקש ממך להעלות את הקוד שלך, כי אני מקוה שבמקום להתעמק בשל ההוא, תשתמש עם הרשמי והמפורסם.
הנה ההורדה הרשמית: http://www.microsoft.com/en-us/download/details.aspx?id=5124
העיקר זה הקובץ הקטן, הוא הDLL. הגדול זה טוב ללמוד איך עובדים הקבצים מבוססי הOpenXml, מה הם מכילים ואיך לקרוא ולכתוב את זה.
הנה מה שצריך לקריאת הטקסט כמדומני:
Dim Doc = Packaging.WordprocessingDocument.Open(filename, False)
Return Doc.MainDocumentPart.Document.InnerText
Doc.Close()
פורסם במקור בפורום CODE613 ב25/07/2013 15:38 (+03:00)
ממש קל, בVS אתה מוסיף דף לפרוייקט WEB כל שהוא, בוחר בWebService, כותב פונקציות וזהו.
ואז התוצאה מגיעה ע"י בקשת HTTP בשיטת POST.
בתוכנה אפשר לשלב את הפונציונליות של הWebService ממש בתוכנה כמו כל DLL.
מוסיפים WebReference, וזהו יש בפרוייקט גישה לכל הפונקציות של הWebService.
פורסם במקור בפורום CODE613 ב24/07/2013 15:10 (+03:00)
אתה יכול לחפש בתוך התוכן של כל הקבצים במחשב עם התוכנה הזאת.
http://www.nirsoft.net/utils/search_my_files.html
תחפש את השם של הקובץ האחרון או את חלקו. ותראה האם זה מביא לך את הקובץ הרלוונטי.
בלי קשר לנושא, התוכנה ממש מוצלחת ושימושית מאוד!
תודה רבה!
פורסם במקור בפורום CODE613 ב22/07/2013 14:04 (+03:00)
לא האפליקציה מטפלת ברשימה הזו, אלא Windows 7 ומעלה ע"פ בקשתה.
(מידי דברנו במעלות WPF, אז עושים את זה שם עם שורות XAML בודדות ללא קוד, אבל אף אחד פה לא כותב תוכנות שפותחות קבצים מן הסתם...)
איפה הWindows שומר את הרשימה? אז Windows נוהג לשמור הכל ברגיסטרי, לכאורה בדיוק איפה שארכיטקט הביא.
זה שמחקת וזה הוסיף להופיע, אני סבור שזה ייעלם אחרי שתדליק את המחשב מחדש. ואם כן באמת, זה לא עוזר לך.
פורסם במקור בפורום CODE613 ב21/07/2013 13:53 (+03:00)