سوال: خواندن خط به خط نوت پد [بایگانی]

vb-sosol

پنج شنبه 19 دی 1392, 17:19 عصر

سلام
یک txt در یک آدرس سایتی دارم
مثلا سایتم آدرسش اینطوری هست
www.mysite.com/test.txt (http://www.mysite.com/test.txt)

حالا وقتی توی این txt متن میذارم همش خونده میشه
میخوام خط به خط بخونم
یعنی خط اول رو بخونم بعد دکمه ای چیزی زدم خط دوم و الی آخر

تعداد خط ها هم میخوام بدونم چندتا هست
چطوری این کار امکان پذیر هست؟
ممنون

سید حمید حق پرست

پنج شنبه 19 دی 1392, 19:39 عصر

سلام علیکم
برای این کار بهترین راه این هست که اول فایل دانلود کرده و بعد خوانده شود.
در سورس ضمیمه ای که نوشتم فایل دانلود و در پوشه TEMP ویندوز زخیره میشه سپس تعداد لاینها بدست میاره، و لاین مورد نظر هم میخونه
موفق باشید.

یا علی (ع)

vb-sosol

شنبه 21 دی 1392, 01:12 صبح

vb-sosol

شنبه 21 دی 1392, 01:19 صبح

ضمنا بگم کدی که میره txt رو دانلود میکنه و در پشوه temp قرار میده توی یک تایمر گذاشتم که کدام بره چک کنه و دانلود کنه
اینکار cpu را بیش از حد مشغولش میکنه راهی هست مدام چک کنم که اگه خط جدید اضافه شد متوجه بشم؟

سید حمید حق پرست

شنبه 21 دی 1392, 01:43 صبح

مرسی عزیز
اما یه مشکلی دارم
الان اگه برنامه باز باشه و توی txt مثلا 3 خط نوشته باشه خط ها رو میشماره و درست هست
ولی اگه همان لجظه تعداد خطها رو 4 تا کنم باز این تعداد 3 تا رو میدونه وانگار ریفرش نشده !!!
با مرورگر ریفریش میکنم 4 خط هست
انگار یه جور کش داره
باید چکار کنم؟
سلام علیکم
برنامه رو کمپایل کنید و بعد تست کنید، داخل پروژه اجرا بشه اینجوری هست.

ضمنا بگم کدی که میره txt رو دانلود میکنه و در پشوه temp قرار میده توی یک تایمر گذاشتم که کدام بره چک کنه و دانلود کنه
اینکار cpu را بیش از حد مشغولش میکنه راهی هست مدام چک کنم که اگه خط جدید اضافه شد متوجه بشم؟
یک راه دیگه هست که به جای دانلود محتویات فایل داخل سایت رو بخونه و با فایل موجود در پوشه TEMP مقایسه کنه و اگر یکی نبودند دوباره دانلود کنه.
موفق باشید

یا علی (ع)

vb-sosol

شنبه 21 دی 1392, 10:27 صبح

یک راه دیگه هست که به جای دانلود محتویات فایل داخل سایت رو بخونه و با فایل موجود در پوشه TEMP مقایسه کنه و اگر یکی نبودند دوباره دانلود کنه.
موفق باشید

یا علی (ع)

خب برای اینکه مقایسه کنه باید باز مدام چک کنم !
که اونم باید بذارم داخل تایمر

سید حمید حق پرست

شنبه 21 دی 1392, 10:46 صبح

خب برای اینکه مقایسه کنه باید باز مدام چک کنم !
که اونم باید بذارم داخل تایمر
خب عزیز خودتون گفتید مدام چک کنم :

ضمنا بگم کدی که میره txt رو دانلود میکنه و در پشوه temp قرار میده توی یک تایمر گذاشتم که کدام بره چک کنه و دانلود کنه
اینکار cpu را بیش از حد مشغولش میکنه راهی هست مدام چک کنم که اگه خط جدید اضافه شد متوجه بشم؟
خیلی از برنامه ها بیشتر از 1 تایمر هم استفاده میکنند، حالا چرا شما استفاده نمیکنید نمیدونم چرا!
موفق باشید.

یا علی (ع)

vb-sosol

شنبه 21 دی 1392, 10:52 صبح

مشکل اینه که cpu رو مشغول خودش میکنه
یه چیزی مثل thread توی سی شارپ اگه توی vb6 بود خیلی بهتر میشد
بازم ممنون بابت راهنمائیتون

سید حمید حق پرست

شنبه 21 دی 1392, 11:41 صبح

مشکل اینه که cpu رو مشغول خودش میکنه
یه چیزی مثل thread توی سی شارپ اگه توی vb6 بود خیلی بهتر میشد
بازم ممنون بابت راهنمائیتون
خب میتونید interval تایمر رو بالا بزارید، مثلا 30 ثانیه یا 1 دقیقه
یا علی (ع)

vb-sosol

شنبه 21 دی 1392, 12:14 عصر

برای ارسال IP کاربر به همون نوت پد اگه میشه راهنمائی کنید.تشکر ویژه

سید حمید حق پرست

یک شنبه 22 دی 1392, 10:40 صبح

برای ارسال IP کاربر به همون نوت پد اگه میشه راهنمائی کنید.تشکر ویژه
سلام علیکم
سورس ضمیمه کردم
فایل php رو داخل سایت آپلود کنید و آدرس فایل بجای آدرس داخل سورس بزارید.
موفق باشید.

یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 12:39 عصر

سلام علیکم
برنامه رو کمپایل کنید و بعد تست کنید، داخل پروژه اجرا بشه اینجوری هست.

یا علی (ع)

سلام
مشکل کش شدن رو هنوز دارم
فایل exe اجرا میکنم بعد محتویات txt رو عوض میکنم ولی تاثیری نمیذاره :ناراحت:

vb-sosol

یک شنبه 22 دی 1392, 12:44 عصر

سلام علیکم
سورس ضمیمه کردم
فایل php رو داخل سایت آپلود کنید و آدرس فایل بجای آدرس داخل سورس بزارید.
موفق باشید.

یا علی (ع)

فایل رو آپلود کردن برنامه که اجرا میشه WebBrowser1 سفید میشه و دیگه چیزی توش نیس!
لطفا راهنمائی کنید

سید حمید حق پرست

یک شنبه 22 دی 1392, 12:58 عصر

سلام
مشکل کش شدن رو هنوز دارم
فایل exe اجرا میکنم بعد محتویات txt رو عوض میکنم ولی تاثیری نمیذاره :ناراحت:
تا بعد از ظهر یک روش دیگه براتون مینویسم و میزارم

فایل رو آپلود کردن برنامه که اجرا میشه WebBrowser1 سفید میشه و دیگه چیزی توش نیس!
لطفا راهنمائی کنید
قرار نیست تو WebBrowser چیزی دیده بشه عزیز، این سورس آی پی رو در فایل ip.txt کنار فایل php قرار میده!
موفق باشید.

یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 13:04 عصر

تا بعد از ظهر یک روش دیگه براتون مینویسم و میزارم

ممنون برادر خوبم لطف میکنید

قرار نیست تو WebBrowser چیزی دیده بشه عزیز، این سورس آی پی رو در فایل ip.txt کنار فایل php قرار میده!
موفق باشید.

یا علی (ع)

بله درسته!
این حالت اضافه کردن بود حالا اگه بشه حذفش هم باشه عالی میشه
یعنی هر چی توی ip.txt هست حذف بشه
:قلب:

vb-sosol

یک شنبه 22 دی 1392, 13:23 عصر

ببنید مشکل کش اینه که برنامه وقتی اجرا هست من میرم و فایل که توی پوشه temp ایجاد میشه رو دستی حذفش میکنم بعد اتوماتیک درست میشه و خط جدید را که اضافه کردم رو به دست میاره !!!

سید حمید حق پرست

یک شنبه 22 دی 1392, 13:41 عصر

بله درسته!
این حالت اضافه کردن بود حالا اگه بشه حذفش هم باشه عالی میشه
یعنی هر چی توی ip.txt هست حذف بشه
:قلب:
فایل ضمیمه پست 11 رو دوباره دانلود کنید، یک فایل php دیگری به اسم delete-ip.php اضافه کردم، کنار فایل add-ip.php آپلودکنید و برای حذف محتویات فایل ip.txt دستور زیر رو بکار ببرید :
WebBrowser1.Navigate ("http://mysite/delete-ip.php")

ببنید مشکل کش اینه که برنامه وقتی اجرا هست من میرم و فایل که توی پوشه temp ایجاد میشه رو دستی حذفش میکنم بعد اتوماتیک درست میشه و خط جدید را که اضافه کردم رو به دست میاره !!!
قبل از کد دانلود فایل دستور حذف فایل موجود در پوشه temp رو باید بکار ببرید :
Kill Environ("temp") & "\test.txt"
اگر با این دستور درست نشد بگید روش دیگری براتون قرار بدم.
موفق باشید.

یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 13:53 عصر

قبل از کد دانلود فایل دستور حذف فایل موجود در پوشه temp رو باید بکار ببرید :
Kill Environ("temp") & "\test.txt"
اگر با این دستور درست نشد بگید روش دیگری براتون قرار بدم.
موفق باشید.

یا علی (ع)

این کد بود ولی کار نمیکنه

سید حمید حق پرست

یک شنبه 22 دی 1392, 14:13 عصر

این کد بود ولی کار نمیکنه
یعنی فایل رو حذف نمیکنه؟
اسم فایل در داخل کد دانلود عوض نکردید؟ اگر عوض کردید در این کد هم عوض کنید.
اگر کار نکرد از کد زیر برای حذف استفاده کنید ببینید درست میشه :
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click()
DeleteFile Environ("temp") & "\test.txt"
End Sub

موفق باشید.
یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 14:17 عصر

سید حمید حق پرست

یک شنبه 22 دی 1392, 14:24 عصر

موقعی برنامه رو میبندم دیگه فایل وجود نداره و درسته ودستور کار میکنه
ولی وقته برنامه باز هست و به txt یک خط اضافه میکنم تشخیص نمیده و همانطوری که برنامه باز هست فایل رو از temp دستی حذفش میکنم اونوقت درست میشه
مشکل اینجاست
حالا راه حل دوم چی هست؟
شما کد دانلود داخل تایمر گذاشتید؟
سورستون آپلود کنید ویرایش کنم براتون. اگر مشکل داشت روش دوم براتون مینویسم.

یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 17:47 عصر

شما کد دانلود داخل تایمر گذاشتید؟
سورستون آپلود کنید ویرایش کنم براتون. اگر مشکل داشت روش دوم براتون مینویسم.

یا علی (ع)

بله داخل تایمر هست
دقیقا سورس شما رو گذاشتم

سید حمید حق پرست

یک شنبه 22 دی 1392, 17:48 عصر

بله داخل تایمر هست
دقیقا سورس شما رو گذاشتم
داخل تایمر دستور حذف فایل قبل دستور دانلود قرار دادید؟

یا علی (ع)

vb-sosol

یک شنبه 22 دی 1392, 17:58 عصر

بله این دستور رو قرار دادم
On Error Resume Next
Kill Environ("temp") & "\test.txt"

سید حمید حق پرست

دوشنبه 23 دی 1392, 00:24 صبح

سلام علیکم
دستور حذف کش رو به سورس پست 2 اضافه و در این پست ضمیمه کردم.
در تایمر هم مثل لود فرم کد call زیر رو قبل از کد دانلود فایل txt قرار بدید :
Call DeleteUrlCacheEntry("http://hamidelectronic.twomini.com/test.txt")
فقط آدرس فایل رو در کد بالا قرار بدید.
موفق باشید.

یا علی (ع)