Hola, uso Windows 98SE.
Tengo este problema: cuando trato de corregir una letra en cualquier pantalla que estoy usando para escribir, cuando corrijo la letra, se borra la siguiente.
p.ej. si yo escribiera
libro
y quiero corregir con B mayúscula, pongo el cursor antes de la b
| libro
tipo B, y el resultado es:
Bok
Se elimina la siguiente letra.
¿Cuál es el problema?.
No me digas que vuelva a instalar, no es una respuesta y no funciona.
¡Gracias!.

Si esto es lo que creo que es, su respuesta es simple. Mientras esté en Microsoft Word o Bloc de notas, cualquiera que sea el sistema de procesamiento de texto que use, presione el botón de inserción en su teclado. Entonces intente intentarlo normalmente.
Llama


¿Por qué está el cursor antes de la letra que desea eliminar?
Intente el cursor después de la letra, luego retroceda y escriba la nueva letra.


gracias llama, problema resuelto!

¡Ningún problema! ¡Oye, por eso estoy aquí! ¡Gracias por publicar!
Llama

Drawback With.Vbs Eliminando Frases

Tengo un guión en el que estoy trabajando para mi pasantía. Lo que hace es buscar nombres de archivos dados en el disco duro y luego, si encuentra los nombres de los archivos, elimina la carpeta. Bueno, el único problema es que si el nombre de archivo está debajo de una carpeta como C: windows o C: archivos de programa, no quiero que elimine toda la carpeta, solo los nombres de carpeta y los archivos individuales que enumero. Actualmente estoy trabajando con este código (espero que sea la última versión, algunos WScript. Es posible que falten cosas de Eco, pero en su mayoría está completo.
Código:
Const ForReading = 1strComputeri = 0Set fso = CreateObject ("Scripting.FileSystemObject") Establecer objWMIService = GetObject ("winmgmts: " & strComputer & "oot cimv2") Establecer f = fso.OpenTextFile ("H: gameLocation .txt ", ForReading) Hacer hasta f.AtEndOfStream = TrueretString = f.ReadLinefname = Split (retstring,". ") (0) fext = Split (retString,". ") (1) Establecer colFiles = objWMIService.ExecQuery _ ( "Seleccione de CIM_DataFile donde FileName = '" & fname & "'" & "y Extension '" & fext & "'" & "") 'WScript.Echo "Buscando" y retstring para cada objFile en colFilesIf InStr (1, objFile.Caption, "c: windows")> 0 ThenWScript.Echo "Prueba" WScript.Echo retstring & "Found In Windows.Not Deleting" 'Aquí está el inicio de mi scriptsearchFileString & fname & "_ folder.txt" WScript. .Echo searchFileStringSet d = fso.OpenTextFile (searchFileString, ForReading) Hacer hasta d.AtEndOfStream = True folderName = f.ReadLine folderPath = objFile.Path & folderName strFolder = Left (objFile.Drive & folderPath, LenD (objFile ath) - 1) WScript.Echo strFolder 'fso.DeleteFolder strFolder, True' Aquí está el final de mi script de prueba.Loopi = i + 1ElseIf InStr (1, objFile.Caption, "c: program files")> 0 ThenWScript .Ets retstring & "Found In Program Files. Not Deleting" WScript.Echo "¿Tal vez codificaré algo para eliminar todos los archivos individuales?" 'Aquí está el inicio de mi scriptsearchFarchString = fname & "_ folder.txt" Set d = fso.OpenTextFile (searchFileString, ForReading) Hacer hasta d.AtEndOfStream = True folderName = f.ReadLine folderPath = objFile.Path & folderName strFolder = Left (objFile.Drive & folderPath, Len (objFile.Drive & folderPath) - 1) WScript. Echo strFolder'fso.DeleteFolder strFolder, True'Aquí está el final de mi script de prueba.Loopi = i + 1ElseWScript.Echo retstring & "Found In" & objFile.Drive & objFile.PathWScript.Echo "Eliminación de archivos/carpeta" y objFile .Drive & objFile.PathstrFolder = Left (objFile.Drive & objFile.Path, Len (objFile.Drive & objFile.Path) - 1) WScript.Echo "Tal vez codificaré algo para eliminar todos los ind archivos individuales? "fso.DeleteFolder strFolder, TrueEnd IfEnd IfNextLoopIf i> 0 Entonces msgbox" ¡Alerta! Encontró algo en el directorio de Windows o en los archivos del programa. " & Chr (13) & Chr (13) & "Es posible que desee volver a crear una imagen de la computadora para solucionar el problema". De lo contrario, msgbox "Éxito, la computadora está limpia". Fin Iff.CloseEl único problema es que genera algo como esto . Si observa, tengo una lista de carpetas en el archivo .txt pero en la ventana cmd muestra algo como C: windows suppor, lo que significa que perdió el t en apoyo. No es solo esa línea, son algunas de las otras líneas, pero no todas las líneas.

Tal vez solo estoy cansado pero no puedo por mi vida ver dónde está el literal"> carpeta para eliminar"es generado. Por otro lado, en realidad puede tener carpetas con esos nombres. ¿Podría indicar dónde se origina ese mensaje?

me di cuenta de lo que era, quité 1 carácter de la cadena para el final/que nunca estuvo allí porque copié y pegué desde abajo. ¿Eso haría que esta línea se vea así?
Código:
strFolder = Left (objFile.Drive & folderPath, Len (objFile.Drive & folderPath) - 1)
Código:
strFolder = objFile.Drive & folderPath

Si, eso funciona. Lo bueno de VBS es que puede usar objetos sin nombre para cortar y cortar datos sin cambiar los datos de origen subyacentes.

No es exclusivo de VBS de ninguna manera.

Entradas Populares