Cómo importar datos de texto a la base de datos
Hay un archivo de texto de archivo de personal con el siguiente contenido: Xiao Xu, ingeniero, Xiao Wu, asistente de ingeniería, Xiao Cai, asistente de ingeniero, Xiao Mu, ingeniera
Quieres transferirlo a el archivo de base de datos dbf La estructura del archivo dbf es la siguiente: nombre, sexo, edad, título
¿Qué debo hacer? Ahora bien, este problema se ha resuelto bien mediante el uso de la programación de Delphi. Delphi proporciona muchas funciones y procedimientos de procesamiento de caracteres potentes y ricos. Los más utilizados son ()función Longitud(S String) Integer//Devuelve la longitud de la cadena ()función Copiar(. S String ;Index Count Integer) String//Da una copia de la cadena en la cadena ( )función Pos(Substr String;S String);Integer//Encuentra la posición de la subcadena en la cadena ( )Procedure Delete(VarS String ;Index Count Integer);//Eliminar subcadenas de una cadena
Utilizando las funciones y procedimientos existentes proporcionados por Delphi, compilamos nuestras propias tres funciones para realizar la función de transferir datos en formato de texto sin formato a la base de datos. Solo Delphi puede admitir todas las bases de datos compatibles
Cada fila de datos en el texto del archivo es una cadena. Cada dato dividido en la cadena se divide en un campo. Los caracteres de cada campo son delimitadores. o puede ser ; # y otros símbolos. La idea específica es ajustar primero la cadena, luego comparar cada carácter de la cadena con el delimitador, agregar caracteres que no sean delimitadores a la cadena MyStr y finalmente obtener el contenido de un campo. Una cadena se puede convertir en una cadena mediante un bucle. Dividir en varios campos
Función Regulate(aString Sepchar string) string //Eliminar la cadena de especificación del separador redundante Función GetSubStr(. varsString string;SepChar String) String;//Get Una subcadena en la cadena necesita cambiar el valor del parámetro aString, por lo que se define con var FunctionGetSubStrNum(aString SepChar String) Integer // Calcula cuántos campos necesita una cadena; dividirse en. El parámetro aString es la cadena que debe dividirse. SepChar es el separador
Función RegulateStr(aString String;Sepchar String) String;?var?i Num Integer;Flag Boolean;MyStr TempStr. String;begin?Flag:=False;//¿Eliminar banderas Delimitador adicional? Num:=Length(aString);//¿Calcular la longitud de una cadena de cadena para i:= to Num do? //Obtener un carácter en una cadena si TempStr < > SepChar thenbegin ? MyStr:=MyStr+TempSrt; Flag:=True;endelse if(Flag = True)then ? ? fin; ? fin; ? si? MyStr[ Longitud(MyStr)] <> SepChar entonces?
tr+SepChar; ? RegulateSrt:=MyStr;
Función GetSubStr(var aString String SepCharPos:=Pos(? SepChar aString); // ¿Calcular la posición del separador en la subcadena? MyStr:=Copy(aString SepCharPos-); // ¿Poner todos los caracteres antes del separador en la cadena mystr? delimitador y la subcadena antes del delimitador? GetSubStr:=MyStr; // Devuelve un final de campo;
FunctionTforml GetSubStrNum(aString String;SepChar String) Integer; StrLen:=Length(aString); Num:= ; for i:= to StrLen doif Copy(aString i ) = SepCharthen Num:=Num+
Con las tres funciones anteriores, introduzcamos; la aplicación específica Primero, cree un formulario Forml. Agregue un RichEditl (o Menol), un botón Buttonl y un Tablel. Configure las propiedades de Tablel DataBase = c:\Archivs Tablell TableName = Archive dbf. > Agregue los siguientes programas respectivamente: Const Space= ProcedureTForml FormCreate(Sender Tobject /25055
);