مرحبا ، أنا استخدم ويندوز 98SE.
لدي هذه المشكلة: عندما أحاول تصحيح حرف في أي شاشة أستخدمها للكتابة ، عندما أقوم بتصحيح الرسالة ، يتم حذف الرسالة التالية.
مثلا إذا كتبت
كتاب
وأريد أن أصحح برأس المال ب ، أضع المؤشر أمام ب
| كتاب
النوع B ، والنتيجة هي:
بوك
يتم حذف الرسالة التالية.
ما المشكلة؟.
من فضلك لا تقل لي لإعادة التثبيت ، أنها ليست إجابة وأنها لا تعمل.
شكر!.

إذا كان هذا ما أعتقد أنه ، فإن إجابتك بسيطة. أثناء وجودك في Microsoft Word أو Notepad ، أياً كان نظام معالجة النصوص الذي تستخدمه ، اضغط على زر الإدراج في لوحة المفاتيح. ثم حاول التجريب بشكل طبيعي.
لهب


لماذا المؤشر قبل الحرف الذي تريد حذفه؟
حاول المؤشر بعد حرف ثم مسافة للخلف واكتب في رسالة جديدة.


شكرا لهب ، حل المشكلة!

لا مشكلة! مهلا ، لهذا السبب أنا هنا! شكرا على نشرك!
لهب

العيب With.Vbs إزالة العبارات

لديّ برنامج نصي أعمل عليه في فترة التدريب. ما تقوم به هو أنه يبحث في القرص الصلب عن أسماء الملفات المحددة ، ثم إذا وجد أسماء الملفات ، فإنه يحذف المجلد. حسنًا ، المشكلة الوحيدة هي أنه إذا كان اسم الملف موجودًا ضمن مجلد مثل ملفات C: windows أو C: program فلا أرغب في حذف المجلد بالكامل ، فقط أسماء المجلدات والملفات الفردية التي أدرجها. أنا أعمل حاليًا مع هذا الرمز (آمل أن يكون هو الإصدار الأحدث ، قد تكون بعض عناصر WScript.Echo مفقودة ، لكنها مكتملة في الغالب.
الشفرة:
Const ForReading = 1strComputeri = 0Set fso = CreateObject ("Scripting.FileSystemObject") تعيين objWMIService = GetObject ("winmgmts: " & strComputer & "oot cimv2") تعيين f = fso.OpenTextFile ("game: .txt "، ForReading) القيام حتى f.AtEndOfStream = TrueretString = f.ReadLinefname = Split (retstring،". ") (0) fext = Split (retString،". ") (1) تعيين colFiles = objWMIService.ExecQuery _ ( "حدد من CIM_DataFile حيث FileName = '" & fname & "'" & "و Extension" "& fext &" '"&" ")" WScript.Echo "البحث عن" & retstring لكل objFile في colFilesIf InStr (1، objFile.Caption، "c: windows")> 0 ThenWScript.Echo "Testing" WScript.Echo retstring & "Found in Windows.Not Deleting" 'هنا هي بداية بلدي حذف scriptsearchFileString & fname & "_ folder.txt" WScript .Echo searchFileStringSet d = fso.OpenTextFile (searchFileString، ForReading) القيام حتى d.AtEndOfStream = True folderName = f.ReadLine folderPath = objFile.Path & folderName strFolder = Left (objFile.Drive & folderPath، Len) ath) - 1) WScript.Echo strFolder 'fso.DeleteFolder strFolder، True' هذه هي نهاية البرنامج النصي للاختبار الخاص بي. Loopi = i + 1ElseIf InStr (1، objFile.Caption، "c: program files")> 0 ThenWScript .إعادة تثبيت السلسلة & "العثور عليها في ملفات البرنامج. عدم حذف" WScript.Echo "ربما سأقوم بتدوين شيء لحذف جميع الملفات الفردية؟" 'هذه هي بداية حذف scriptsearchFileString = fname & "_ folder.txt" الخاص بي. fso.OpenTextFile (searchFileString ، ForReading) افعل حتى d.AtEndOfStream = True folderName = f.ReadLine folderPath = objFile.Path & folderName strFolder = Left (objFile.Drive & folderPath ، Len (objFile.Drive & folderPath) - 1. صدى strFolder'fso.DeleteFolder strFolder ، True'Here هي نهاية النص البرمجي للاختبار الخاص بي. Loopi = i + 1ElseWScript.Echo retstring & "Found In" & objFile.Drive & objFile.PathWScript.Echo "Remove files/Folder" & objFile .Drive & objFile.PathstrFolder = Left (objFile.Drive & objFile.Path ، Len (objFile.Drive & objFile.Path) - 1) WScript.Echo "ربما سأقوم بتدوين شيء لحذف جميع ind الملفات الفردية؟ "fso.DeleteFolder strFolder ، TrueEnd IfEnd IfNextLoopIf i> 0 ثم msgbox" تنبيه! ، وجدت شيئًا في دليل windows أو ملفات البرنامج. " & Chr (13) & Chr (13) & "قد ترغب في إعادة استخدام جهاز الكمبيوتر لرعاية المشكلة." Else msgbox "النجاح ، الكمبيوتر نظيف." End Iff.Close والمشكلة الوحيدة هي أنه يقوم بإخراج شيء مثل هذا . إذا لاحظت ، فلدي قائمة مجلدات في ملف txt ولكن في نافذة cmd ، يظهر شيء مثل C: windows suppor مما يعني أنها فقدت تي في الدعم. ليس هذا الخط فقط ، بل هو بعض الخطوط الأخرى ، ولكن ليس كل سطر.

ربما أكون متعبًا لكني لا أستطيع أن أرغب في الحياة لي أين الحرفي"> مجلد لحذفه"تم إنشاؤه. من ناحية أخرى ، قد يكون لديك بالفعل مجلدات بهذه الأسماء. هل يمكن أن تشير إلى أين تنشأ هذه الرسالة؟

أدركت ما كانت عليه ، لقد خلعت حرفًا واحدًا من السلسلة للنهاية/لم يكن هناك أبدًا لأنني قمت بالنسخ واللصق من الأسفل. هل سيجعل هذا السطر يبدو مثل هذا
الشفرة:
strFolder = اليسار (objFile.Drive & folderPath ، Len (objFile.Drive & folderPath) - 1)
الشفرة:
strFolder = objFile.Drive & folderPath

نعم ، هذا يعمل. الشيء الجيد في VBS هو أنه يمكنك استخدام كائنات غير مسماة لتقطيع البيانات وتقطيعها دون تغيير بيانات المصدر الأساسية.

ليست فريدة من نوعها ل VBS بأي وسيلة.

المشاركات الشعبية