Trouver un fichier de code source :
   

Version Française - English Version
Accueil > 

C#

 > 

COBOL TO SQL

 > 

type.cs


COBOL TO SQL

type.cs


Informations sur ce code source

Cliquez pour voir la capture en taille normale
Code Source COBOL TO SQL
Auteur bir
Fichier type.cs en C# / C#.NET
Publié le 04/09/2012

ce programme permet de convertir la descriptions des fichiers de données dans cobol vers le langage SQL afin de pouvoir charger directement les données de l'application Cobol dans une base de donnés SQL SERVER. Il faut noter que les données des fich
 

Fichier : type.cs

Nombre de lignes : 132 lignes


Afficher ce fichier en plein écran
  • using System;
  • using System.Collections.Generic;
  • using System.Linq;
  • using System.Text;
  • namespace SIC_SQL
  • {
  • public class Stype
  • {
  • private string entree { get; set; }
  • private int valeur;
  • public int Valeur
  • {
  • get
  • {
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC XX\.)").Groups[1].Success) { return 2; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC XXX\.)").Groups[1].Success) { return 3; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC X\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V99\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V99\.)").Groups[1].Success) { return 2; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V9\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V9\.)").Groups[1].Success) { return 2; }
  • else
  • {
  • try
  • {
  • return int.Parse(System.Text.RegularExpressions.Regex.Match(entree, @"\(([^)]*)\)").Groups[1].Value.ToString());
  • }
  • catch (Exception)
  • {
  • return 0;
  • }
  • }
  • }
  • set { valeur = value; }
  • }
  • private int mantisse;
  • public int Mantisse
  • {
  • get
  • {
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V99\.)").Groups[1].Success) { return 2; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V99\.)").Groups[1].Success) { return 2; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V9\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V9\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V99\.)").Groups[1].Success) { return 2; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V9\.)").Groups[1].Success) { return 1; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V9(3).)").Groups[1].Success) { return 3; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V9(4).)").Groups[1].Success) { return 4; }
  • else
  • {
  • try
  • {
  • return int.Parse(System.Text.RegularExpressions.Regex.Match(entree, @"V9\(([^)]*)\)\.").Groups[1].Value.ToString());
  • }
  • catch
  • {
  • return 0;
  • }
  • }
  • }
  • set { mantisse = value; }
  • }
  • public string get_numeric()
  • {
  • switch (Valeur)
  • {
  • case 1: { return "tinyint"; }
  • case 2: { return "smallint"; }
  • case 3: { return "int"; }
  • case 4: { return "int"; }
  • case 5: { return "bigint"; }
  • case 6: { return "bigint"; }
  • case 7: { return "bigint"; }
  • case 8: { return "bigint"; }
  • default: { return "numeric(" + Valeur + ")"; }
  • }
  • }
  • public int getTotal()
  • {
  • return Valeur + Mantisse;
  • }
  • private string Get_Type()
  • {
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+X\()").Groups[1].Success) { return "varchar(" + Valeur + ")"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V99\.)").Groups[1].Success) { return "numeric(1,2)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V99\.)").Groups[1].Success) { return "numeric(2,2)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9V9\.)").Groups[1].Success) { return "numeric(1,1)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*99V9\.)").Groups[1].Success) { return "numeric(2,1)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V99\.)").Groups[1].Success) { return "numeric(" + Valeur + ",2)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V9\.)").Groups[1].Success) { return "numeric(" + Valeur + ",1)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)\.)").Groups[1].Success) { return get_numeric(); }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC\s+[Ss]*9\(\d+\)V9\(\d+\)\.)").Groups[1].Success) { return "numeric(" + Valeur + "," + Mantisse + ")"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC XX\.)").Groups[1].Success) { return "varchar(2)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC XXX\.)").Groups[1].Success) { return "varchar(3)"; }
  • if (System.Text.RegularExpressions.Regex.Match(entree, @"(PIC X\.)").Groups[1].Success) { return "varchar(1)"; }
  • else
  • {
  • return "";
  • }
  • }
  • public string SQLType()
  • {
  • string _type = Get_Type();
  • if (_type == "numeric(3,4)") { return "float(7)"; }
  • else return _type;
  • }
  • public Stype(string val_entree)
  • {
  • entree = val_entree;
  • }
  • public Stype()
  • {
  • // TODO: Complete member initialization
  • }
  • }
  • }


Liste des fichiers du ZIP

FichierTaille
AboutBox1.cs3,38 Ko
AboutBox1.Designer.cs10,27 Ko
AboutBox1.resx22,36 Ko
AbstractLigne.cs5,42 Ko
app.config845 o
champ.cs3,41 Ko
Diane.cs4,87 Ko
Field.cs3,35 Ko
frmMain.cs5,35 Ko
frmMain.Designer.cs17,76 Ko
frmMain.resx11,89 Ko
IChildItem.cs3,73 Ko
Iligne.cs601 o
ligne.cs1,09 Ko
obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache6,14 Ko
obj/x86/Debug/GenerateResource.read.1.tlog540 o
obj/x86/Debug/GenerateResource.write.1.tlog1,02 Ko
obj/x86/Debug/SIC SQL.csproj.FileListAbsolute.txt1,29 Ko
obj/x86/Debug/SIC_SQL.frmMain.resources4,11 Ko
obj/x86/Debug/SIC_SQL.Properties.Resources.resources180 o
obj/x86/Debug/TempPE/Properties.Resources.Designer.cs.dll4,5 Ko
obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache6,26 Ko
obj/x86/Release/GenerateResource.read.1.tlog2 o
obj/x86/Release/GenerateResource.write.1.tlog2 o
obj/x86/Release/GenerateResource-ResGen.read.1.tlog766 o
obj/x86/Release/GenerateResource-ResGen.read.7.tlog2 o
obj/x86/Release/GenerateResource-ResGen.write.1.tlog2,54 Ko
obj/x86/Release/SIC SQL.application1,97 Ko
obj/x86/Release/SIC SQL.csproj.FileListAbsolute.txt2,4 Ko
obj/x86/Release/SIC SQL.exe.manifest3,44 Ko
obj/x86/Release/SIC_SQL.AboutBox1.resources11,4 Ko
obj/x86/Release/SIC_SQL.frmMain.resources4,11 Ko
obj/x86/Release/SIC_SQL.Properties.Resources.resources180 o
obj/x86/Release/TempPE/Properties.Resources.Designer.cs.dll5 Ko
OccursLigne.cs641 o
Program.cs483 o
Properties/AssemblyInfo.cs1,73 Ko
Properties/Resources.Designer.cs2,96 Ko
Properties/Resources.resx5,48 Ko
Properties/Settings.Designer.cs1,53 Ko
Properties/Settings.settings413 o
SIC SQL.csproj6,39 Ko
SIC SQL.csproj.user504 o
SIC SQL_TemporaryKey.pfx1,67 Ko
table.cs7,83 Ko
type.cs5,99 Ko

Pour télécharger le zip au complet, veuillez vous rendre sur cette page :
Télécharger COBOL TO SQL


Sources du même auteur ayant un ZIP


  • Visual Basic, VB6, VB.NET, VB 2005, VB Copie de classeur et envoie par mail attaché
    Il est souvent difficile d'envoyer par mail la feuille actif dans excel ce code a pour de palier a ce problème. Il copie la feuille et seu...
    Langage : Visual Basic, VB6, VB.NET, VB 2005, VB, publié le 26/11/2007 par bir

Voir la suite...


Sources du même langage comportant un zip


Voir la suite...





Derniers codes sources...

Logiciels à télécharger...

  • Devis-Factures PHMSD (2.1.0.1)
    Devis-Factures PHMSD (2.1.0.1)
    Configuration minimale Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à jour) - Processeur 500 Mhz (700 Mhz conseillé) - 256 Mo de Ram - 100 Mo d'espace disque disponible po...
  • Ludoprêt (3.2) [Gratuit / Freeware]
    Ludoprêt (3.2) [Gratuit / Freeware]
    Logiciel gratuit de gestion de ludothèque. Gestion des jeux et des adhérents. Gestion des forfaits et des cotisations. Gestion des prêts et retours. Gestion des retards et édition des relances. ...
  • Revealer Keylogger Free (2.05) [Gratuit / Freeware]
    Revealer Keylogger Free (2.05) [Gratuit / Freeware]
    Keylogger invisible et gratuit pour Windows 8, 7, Vista ou XP. Revealer Keylogger Free vous permet de surveiller l'activité des utilisateurs de votre ordinateur et d'enregistrer toutes les touches du ...

Sondage...

Le top des photos

Photo ??Photo ???????????????
Photo ????????Photo ????????
 

Développement réalisé par Nicolas SOREL (Nix) et Emmanuel (EBArtSoft) avec l'aide de Cyril DURAND, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,56 sec