Chgt de séparateur [VB6]

Question

bonjour
j'ai un fichier texte de 4 colonnes dont les s&#233;parateurs sont des espaces,et du au espace,je n'arrive pas &#224; convertir mon fichier texte en fichier excel.
est ce possible de modifier mes s&#233;parateurs "espaces" par des "tabulations",mais sans que l'utilisateur ne le voit .Car apr&#233;s avec mon programme je pourrais le convertir en Excel.
merci
@ plus
petchy

cs_jperre · Answer

Il existe une fonction dans VB6 qui permet de remplacer des caractères isolés ou des chaînes de caractères à l'intérieur d'une chaîne de caractères. Le plus simple pour votre cas serait de remplacer les espaces par des points virgules ce qui transformerait votre fichier texte en fichier CSV tout à fait facile à ouvrir dans Excel.

Sub TransFormTxtToCsv(sFileTxt As String)
  Dim lFileTxt As Long, lFileCSV As Long, sFileCSV As String
  Dim sLine As String,sLineCSV As String
  lFileTxt=FreeFile
  Open sFileTxt For Input As #lFileTxt
  sFileCsv=Left(sFileTxt, Len(sFileTxt)-3) & "CSV"
  lFileCSV=FreeFile
  Open sFileCSV For Output As #lFileCSV
  Do
    Line Input #lFileTxt, sLine
    sLineCSV=Replace(sLine," ",";")
    Print #lFileCSV, sLineCSV
  Loop Until EOF(lFileTxt)
  Close #lFileTxt,#lFileCSV
  Kill sFileTxt
End Sub

cs_petchy · Answer

Re
merci JPerre de ta r&#233;ponse,mais je n'arrive pas &#224; l'int&#233;gr&#233; dans mon prog,mais par contre j'ai ses codes,est ce que &#231;a joue pour les s&#233;parateurs,si oui coment lui dire que c'est des espaces.

Private Sub Txt_ExcelTexte_Separateur_GotFocus()
    Txt_TexteAccess_Separateur.SelLength = 2
End Sub
Private Sub Txt_ExcelTexte_Separateur_KeyPress(KeyAscii As Integer)
    Txt_TexteAccess_Separateur.Text = Chr(KeyAscii)
    Txt_TexteAccess_Separateur.SelLength = 2
    KeyAscii = " "
End Sub


Private Sub Txt_TexteExcel_Separateur_GotFocus()
    Txt_TexteAccess_Separateur.SelLength = 2
End Sub
Private Sub Txt_TexteExcel_Separateur_KeyPress(KeyAscii As Integer)
    Txt_TexteAccess_Separateur.Text = Chr(KeyAscii)
    Txt_TexteAccess_Separateur.SelLength = 2
    KeyAscii = 0
End Sub
merci$
petchy

PCPT · Answer

salut, çà peut aider? VB6... Option Explicit ' ' Private Sub Form_Load() Const sMyFile As String = "C: ruc.txt" Dim FF As Integer, sSource As String FF = FreeFile Open sMyFile For Input As #FF sSource = Input (LOF(FF), 1) Close #FF MsgBox sSource sSource = Replace(sSource, Chr$(32), vbTab) MsgBox sSource FF = FreeFile Open sMyFile For Append As #FF Print #FF, sSource Close #FF Unload Me End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

Chgt de séparateur [VB6]

3 réponses

Discussions similaires