Escuela (alumno, idioma, profesor)

• Un idioma lo imparten varios profesores.
• Un idioma lo cursan varios alumnos.
• Un profesor tiene varios alumnos.

DECLARE
vsalario EMPLEADO.salario%TYPE;
 
CURSOR cmayor (mas NUMBER) IS
	SELECT nombre, salario
	FROM empleado
		WHERE salario=vsalario;
 
BEGIN
	SELECT MAX(SALARIO) INTO VSALARIO
	FROM EMPLEADO;
 
FOR VMAYOR IN CMAYOR (VSALARIO) LOOP
	DBMS_OUTPUT.PUT_LINE(‘NOMBRE’ || VMAYOR.NOMBRE);
	DBMS_OUTPUT.PUT_LINE(‘SALARIO’ || VMAYOR.SALARIO);
END LOOP;
END;

CURSOR cmayor (mas number) is
	select nombre, salario
	from empleado
		where salario=vsalario;

• Comprobar que hay una correcta ortografía con esto.
  
  • Guardar oraciones en arrays y buscar palabras más repetidas (omitiendo artículos, preposiciones y demás usando un motor de análisis sintáctico) y dar prioridad a las oraciones dónde salgan éstas.
  • Identificar títulos.
  • Identificar palabras con mayúsculas.
  • Utilizar sinónimos en las palabras no principales.
  • Acortar enumeraciones largas que acaben en "etc" o "..."
  
  Información relevante:
  
  • Documentación 1
  • Documentación 2
  • Documentación 3
  
  Poned ideas, fragmentos de algoritmos o documentación interesante.
  
  DoEvents!

Option Explicit
 
'by Psyke1
Public Static Function TextBTWWords(ByRef sMain As String, ByRef s1 As String, ByRef s2 As String) As String
Dim lPos1                   As Long
Dim lPos2                   As Long
Dim lStart                  As Long
 
    lPos1 = InStrB(1, sMain, s1, vbBinaryCompare)
    If lPos1 = 0 Then Exit Function
 
    lStart = lPos1 + LenB(s1)
    lPos2 = InStrB(lStart, sMain, s2, vbBinaryCompare)
    If lPos2 = 0 Then Exit Function
 
    TextBTWWords = MidB$(sMain, lStart, lPos2 - lStart)
End Function
 
Private Sub Form_Load()
    Debug.Print TextBTWWords("qwertysdfcv [raul338 es feo] prueba", "[", "]")
    Debug.Print TextBTWWords("aitheoiethi[BLABLABLA]taihoithaoihtoea", "(", "]")
    Debug.Print TextBTWWords("aitheoiethi[BLABLABLA)taihoithaoihtoea", ")", "[")
    Debug.Print TextBTWWords("qwertysdfcv raul338 es feo] prueba", "[", "]")
    Debug.Print TextBTWWords("aitheoiet[hi[BLABLABLA]taihoithaoihtoea", "[", "]")
End Sub

 
Option Explicit
 
Private Sub Form_Load()
    MsgBox EntreTextos("aitheoiethi[BLABLABLA]taihoithaoihtoea", "(", "]")
    MsgBox EntreTextos("aitheoiethi[BLABLABLA)taihoithaoihtoea", ")", "[")
End Sub
 
Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
    EntreTextos = MidB$(Text, InStrB(Text, Text1) + LenB(Text1), InStrB(Text, Text2) - InStrB(Text, Text1) - LenB(Text1))
End Function