ספירת שורות קוד ב- VB

yanivlt

New member
ספירת שורות קוד ב- VB

היי האם יש פקודה ב-VB שמבצעת ספירה עבור כמה שורות קוד/טקסט יש לי בקובץ מסויים (בתכנית עצמה באופן יותר ספציפי)? תודה
 

מיקי256

New member
אפשר להשתמש ב-Line Input

open FileName for input as #1 do while eof(1) = false line input #1, a length=length+1 loop close #1​
ובסוף length יכיל את מס' השורות בקובץ.
 
סתם מחשבה

אפשר הרי לקרוא קובץ שלם לתוך משתנה. אפשר הרי לספור הופעות של תו בתוך מחרוזת (בהרבה דרכים, אפילו ע"י Split). ככה שעקרונית, אפשר בדרך בזבזנית בצורה מטורפת מבחינת זיכרון (תלוי בגודל של הקבצים שאתה מטפל בהם), לספור את התווי VbCrLf על שלל צורותיו בלי לעבור שורה שורה. בזבזני ומהיר (אני מאמין) מול יעיל וקצת איטי. תלוי בך.
 
או לחילופין במקרה שלך

עכשיו כשגם שמתי לב שאתה רוצה לספור שורות קוד ולא סתם טקסט, נתקלתי במשהו מוכן ומצוין. אין לי פה את הקוד מקור, רק את הקובץ המקומפל, אז אם אתה מעוניין, שנה פשוט את הסיומת של הקובץ המצורף ל-RAR ותהנה.
 
למעלה