רוטר - עזרה בVB בבקשה זה חשוב

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה בVB בבקשה זה חשוב"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #7606	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 7606

Rami

00:57 21.12.03

עזרה בVB בבקשה זה חשוב

שלום
אני צריך תוכנה שקוראת רשימת סיסמאות, ומוחקת את כל הסיסמאות שיותר מ8 תווים, ושומרת אותם בקובץ חדש,
אם מישהו יודע איך לתכנת כזה קובץ בבקשה שיפנה אלי
תודה מראש!

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
דיי פשוט :)	Black Death	21.12.03 22:13	1
לא עובד..	Rami	21.12.03 22:56	2
לי עובד מעולה.	Black Death	21.12.03 23:13	3
תיודע מה תביא לי את זה מקומפל	Rami	22.12.03 01:15	4
אוקי.. סליחה טעות שלי :)	Black Death	22.12.03 14:09	5
מצעטר לאכזב אבל עדיין לא	Rami	23.12.03 15:03	6
תנסה להוסיף Dim ככה אולי :	Dj_Mizrahit	24.12.03 04:12	7
sOut ו sInp לא הוגדרו כסטרינג זה ברור לכם כן?	Feikin	24.12.03 21:54	8
ברור לכם שזה לא אמור לעבוד...	AlexKarpman	24.12.03 22:29	9
צודק...	mega-killer	25.12.03 23:28	10
איך בדיוק?	Rami	26.12.03 00:14	11
השכלתי טיפה :)	Black Death	04.01.04 11:19	12

Black Death

22:13 21.12.03

1. דיי פשוט :)
בתגובה להודעה מספר 0

Private Sub Form_Load()
Dim sOut, sInp, sPass As String
sOut = App.Path & "\Fixed_Passes.txt"
sInp = App.Path & "\Password.txt"
Open sOut For Append As #1
Open sInp For Append As #2
Do While Not EOF(1)
Input #1, Temp
If Len(sTemp) <= "8" Then
Print #2, sTemp
End If
Loop
Close #1
Close #2
End Sub

חבר שלי עזר לי קצת

(ניהול: מחק תגובה)

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

Rami

22:56 21.12.03

2. לא עובד..
בתגובה להודעה מספר 1

(ניהול: מחק תגובה)

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

Black Death

23:13 21.12.03

3. לי עובד מעולה.
בתגובה להודעה מספר 2

לקובץ של הסיסמאות תקרא Password.txt
ותשים את התוכנה והקובץ בתיקייה אחת.

(ניהול: מחק תגובה)

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

Rami

01:15 22.12.03

4. תיודע מה תביא לי את זה מקומפל
בתגובה להודעה מספר 3

למה הוא רושם לי בעיה עם ה
sTemp
מענין ומה עם
Temp?
שרשום?

(ניהול: מחק תגובה)

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

Black Death

14:09 22.12.03

5. אוקי.. סליחה טעות שלי :)
בתגובה להודעה מספר 4

Private Sub Form_Load()
Dim sOut, sInp, sPass As String
sTemp As String
sOut = App.Path & "\Fixed_Passes.txt"
sInp = App.Path & "\Password.txt"
Open sOut For Append As #1
Open sInp For Append As #2
Do While Not EOF(1)
Input #1, sTemp
If Len(sTemp) <= "8" Then
Print #2, sTemp
End If
Loop
Close #1
Close #2
End Sub

לסליחה, עכשיו זה צריך לעבוד.

(ניהול: מחק תגובה)

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

Rami

15:03 23.12.03

6. מצעטר לאכזב אבל עדיין לא
בתגובה להודעה מספר 5

(ניהול: מחק תגובה)

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

Dj_Mizrahit

04:12 24.12.03

7. תנסה להוסיף Dim ככה אולי :
בתגובה להודעה מספר 6

Dim sOut, sInp, sPass As String
Dim sTemp As String
sOut = App.Path & "\Fixed_Passes.txt"
sInp = App.Path & "\Password.txt"
Open sOut For Append As #1
Open sInp For Append As #2
Do While Not EOF(1)
Input #1, sTemp
If Len(sTemp) <= "8" Then
Print #2, sTemp
End If
Loop
Close #1
Close #2
בשורה הזאת
Dim sTemp As String
היה חסר Dim

*אם זה לא טוב אז לא יודע אני עוד לומד :\

(ניהול: מחק תגובה)

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

Feikin

21:54 24.12.03

8. sOut ו sInp לא הוגדרו כסטרינג זה ברור לכם כן?
בתגובה להודעה מספר 7

(ניהול: מחק תגובה)

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

AlexKarpman

22:29 24.12.03

9. ברור לכם שזה לא אמור לעבוד...
בתגובה להודעה מספר 7

1. אתה צריך לפתוח קבצי פלט כ-Append, Output, Binary או Random.
וקבצי קלט כ-Input, Binary או Random.
אתה פותח את קובץ הקלט כ-Append.
מה אתה מנסה לעשות?!

2. תשתמש ב-FSO, ותעשה לעצמך טובה גדולה.

(ניהול: מחק תגובה)

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

mega-killer
חבר מתאריך 1.8.02
859 הודעות

23:28 25.12.03

10. צודק...
בתגובה להודעה מספר 9

אני בד"כ פותח ב binary כי אז אפשר גם לערוך גם קבצים בפורמטים אחרים בלי סיבוכים... וזה לא משנה אם אתם מנסים לשמור בקובץ טקסט רגיל...

(ניהול: מחק תגובה)

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

Rami

00:14 26.12.03

11. איך בדיוק?
בתגובה להודעה מספר 10

(ניהול: מחק תגובה)

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

Black Death

11:19 04.01.04

12. השכלתי טיפה :)
בתגובה להודעה מספר 11

ערכתי לאחרונה בתאריך 04.01.04 בשעה 11:22 בברכה, Black Death

זה פועל מעולה..
הנה הקוד.. וצירפתי מסמך טקסט שיהיה לך יותר קל לעשות Compile.

Private Sub Form_Load()
Dim sOut As String, sInp As String, sPass As String
Dim sTemp As String

Me.Hide
App.TaskVisible = False
Me.Width = 0
Me.Height = 0
Me.Caption = Empty
App.Title = Empty

sInp = App.Path & "\Password.txt"
sOut = App.Path & "\Fixed_Passes.txt"
Open sIut For Input As #1
Open sOnp For Output As #2
Do While Not EOF(1)
Input #1, sTemp
If Len(sTemp) <= "8" Then
Print #2, sTemp
End If
Loop
Close #1
Close #2
MsgBox "Done!", vbOKOnly
End
End Sub
שים את הקובץ Password.txt באותה תיקיה של התוכנה הזו, ותריץ אותה..
יפתח לך קובץ בשם Fixed_Passes.txt, שם יהיו כל הסיסמאות שאתה צריך.
Black Death
http://n.rotter.net/User_files/nor/3ff7db024b525a8c.txt
תהנה

(ניהול: מחק תגובה)

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