Bienvenue! Inscrivez-vous et rejoignez notre communauté :)
  • Login:

Bienvenue sur Forum SIG - Systèmes d'Information Géographique et Géomatique.

Bienvenue sur le forumSIG. S'il s'agit de votre première visite, assurez vous de faire une recherche préalable dans les FAQ SIG. Vous devez vous inscrire avant de pouvoir poster.

Affichage des résultats 1 à 5 sur 5
  1. #1

    Par défaut Open file txt and change linetxt

    Hello. I am Thanh. . I'm come from Vietnamese
    Can you help me?
    Image:
    Cliquez sur l'image pour la voir en taille réelle 

Nom : 		1.png 
Affichages :	14 
Taille :		40,1 Ko 
ID : 			8529

    Link download file txt: [QUOTE] https://mega.nz/#!s4oHzC4Q!c0zPfp5fs...cL_KIOfP43LjFA [/ QUOTE]

  2. #2

    Date d'inscription
    mai 2011
    Localisation
    Algérie
    Emploi
    Cadre d'études Carto/SIG
    Organisme
    Bureau National d'Etudes pour le Développement Rural
    Âge
    28
    Messages
    162

    Mes réseaux sociaux

    Add parazitenew on Facebook
    Add parazitenew on Linkedin

    Par défaut Re : Open file txt and change linetxt

    Hi,

    I tried This, but there is a little issue with the end of the file, the last line is repeated twice ans I d'ont know why. The second file (HELP_MAPBASIC_Edit.txt) must be empty.

    Code:
    Include "MapBasic.def"
    
    Declare Sub Main
    
    Dim text_read As String
    
    Sub Main()
    
    Open File "HELP_MAPBASIC.txt"
    	For Input
    	As #1
    
    Open File "HELP_MAPBASIC_Edit.txt"
    	For Output
    	As #2
    
    	
    	Do While Not EOF(1)
    		Line Input #1, text_read
    		
    		If text_read = "Name:" Then
    		     Print #2, "Author:"
    		Else		
    		     Print #2, text_read
    		End If
    	Loop
    
    
    
    End Sub
    Si j'ai pu t'aider, un petit pouce à gauche serait très apprécié

  3. #3

    Par défaut Re : Open file txt and change linetxt

    Thank you very much.
    Now I want to replace one string "..................abcxyz....." into one string else?
    In one file has many such sequences .
    Example:
    Old: CoordSys Earth Projection 8 , 104 , " m " , 106.5 , 0 , 0.9999 , 500000 , 0 Bounds ( -7748319.03916 , -10000965.533 ) ( 8748319.03916 , 10000965.533 )
    New: CoordSys Earth Projection 8 , 104 , " m " , 107 , 0 , 0.9996 , 500000 , 0 Bounds ( -7748319.03916 , -10000965.533 ) ( 8748319.03916 , 10000965.533 )
    Can you help me?

  4. #4

    Date d'inscription
    mai 2011
    Localisation
    Algérie
    Emploi
    Cadre d'études Carto/SIG
    Organisme
    Bureau National d'Etudes pour le Développement Rural
    Âge
    28
    Messages
    162

    Mes réseaux sociaux

    Add parazitenew on Facebook
    Add parazitenew on Linkedin

    Par défaut Re : Open file txt and change linetxt

    Sorry I tried But to difficult, mapbasic has his limits working with text files.

    For example:

    Code:
    Include "MapBasic.def"
    
    Declare Sub Main
    
    Dim text_read, text_write As String
    Dim value_1, value_2, value_3 As Float
    Dim i As Integer
    Sub Main()
    
    value_1 = 107
    value_2 = 0
    value_3 = 0.9996
    
    Open File "a.txt"
    	For Input
    	As #1
    
    Open File "b.txt"
    	For Output
    	As #2
    
    	Input #1, text_read
    	text_write = text_read
    	
    	Do While Not EOF(1)
    		Input #1, text_read
    		
    		If text_read = "" Then
    			
    			For i = 1 to 3
    				Input #1, text_read
    			Next
    			
    			text_write = text_write + ", " + value_1 + ", " + value_2 + ", " + value_3
    		Else	
    			text_write = text_write + ", " + text_read
    		End If
    	Loop
    
    	Print #2, text_write
    
    End Sub
    This script replace correctly the three parameters, BUT, the quotation marks are missing arround the unit "m", and the last parameter is repeated twice.

    CoordSys Earth Projection 8 , 104 , m , 107, 0, 0.9996, 500000 , 0 Bounds ( -7748319.03916 , -10000965.533 ) ( 8748319.03916 , 10000965.533 ), 10000965.533 )
    CoordSys Earth Projection 8 , 104 , " m " , 107, 0, 0.9996, 500000 , 0 Bounds ( -7748319.03916 , -10000965.533 ) ( 8748319.03916 , 10000965.533 ), 10000965.533 )
    See the difference?

    Careful!! My script is NOT working well. Don't use it!
    Si j'ai pu t'aider, un petit pouce à gauche serait très apprécié

  5. #5

    Par défaut Re : Open file txt and change linetxt

    Thank you very much. I know more about than the input and output. Can you help me...code....???
    Include "Mapbasic.def"
    declare sub main
    Declare sub kk
    global a as string
    Dim text_read As String
    dim duongdanfile as string
    Dim a,b,TabFile as string
    sub main
    Create menu "Convert_PRJ" as
    "Convert_PRJ" calling kk
    Alter menu bar add "Convert_PRJ"
    End sub
    sub kk
    If SelectionInfo(SEL_INFO_NROWS) = 0 then
    Note "Select an object on the map !"
    Exit Sub
    ElseIf SelectionInfo(SEL_INFO_NROWS) > 1 then
    Note "Select an object on the map !"
    Exit Sub
    End If
    TabFile =SelectionInfo(SEL_INFO_TABLENAME)
    duongdanfile=TableInfo(TabFile, TAB_INFO_TABFILE)
    a="set "+chooseprojection$("",1)
    run command a
    b=Right$(a,Len(a)-4)
    Export TabFile Into PathToDirectory$(duongdanfile)+TabFile+"_CD.MIF" Type "MIF" Overwrite
    Save File PathToDirectory$(duongdanfile)+TabFile+"_CD.MIF" As PathToDirectory$(duongdanfile)+"CD1.txt"
    Open File PathToDirectory$(duongdanfile)+"CD1.txt" For Input As #1
    'Unable to write to convert coordinates because knowledge is limited.Since I discovered it has less experience.
    'My job often coordinate system conversion should one tool to serve the job.
    'We wish the people help.

    'Close File #1
    Kill PathToDirectory$(duongdanfile)+"CD1.txt"
    end sub
    Dernière modification par quangthanhqldd ; 22/09/2016 à 09h25.

 

 

Discussions similaires

  1. [ArcGIS 9.x] ArcCatalog ne change plus la projection
    Par Ibiscus dans le forum Assistance Technique
    Réponses: 6
    Dernier message: 15/06/2012, 14h54
  2. [OpenLayers] Mouse change
    Par coco26 dans le forum Assistance et Programmation
    Réponses: 3
    Dernier message: 27/06/2011, 14h32
  3. Réponses: 1
    Dernier message: 15/04/2010, 09h45
  4. [MapBasic 5.x] Options du "file open"
    Par phoque.r dans le forum Programmation
    Réponses: 8
    Dernier message: 11/05/2007, 12h03
  5. [APIC] Format d'échange ASC
    Par chris dans le forum Assistance et Programmation
    Réponses: 9
    Dernier message: 13/06/2006, 21h38

Les tags pour cette discussion

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •