fortran里怎么添加字符串？

sunyuyong99

我用vb调用fortran90，但是fortran里怎么把文件存到一个已知的文件夹里，并且自定义名字？举个例子，如vb传给fortran一个路径d:\study\program,在fortran里怎么在把文件写到d:\study\program\result里，就是在原来的文件夹里在建立个文件夹，用字符串怎么实现？谢谢了！

galever

使用FORTRAN的字符串加法运算功能

sunyuyong99

定义字符串的时候不是得定义字符串的长度嘛！怎么相加呀？望举个例子！谢谢了！我好像没有实现呀！

苍山负雪

从某个代码中拷贝的一段。可以将string1的长度定义的长一些。

1. 
   
2.       SUBROUTINE CHAPND (STRING1, STRING2)
   
3. C
   
4. C Routine to append character STRING2 to STRING1.
   
5. C
   
6. C N.B. This routine assumes that STRING1 is right padded with spaces.
   
7. C      Unpredictable results will be returned if STRING1 is not right padded.
   
8. C
   
9. C STRING1 : Input base character string (with at least one terminating space)
   
10. C STRING2 : Input character string to be appended to STRING1
    
11. C
    
12.       CHARACTER*(*) STRING1,
    
13.      1              STRING2
    
14. C
    
15.       LEN1 = ICHLNG (STRING1)
    
16. C
    
17.       STRING1 = STRING1(1:LEN1) // STRING2
    
18. C
    
19. C Finished with CHAPND
    
20. C
    
21.       RETURN
    
22.       END
    
23. 
    
24. 
    
25. 
    
26.       INTEGER FUNCTION ICHLNG (STRING)
    
27. C
    
28. C Function to return the length of a string defined as the location where
    
29. C the first white space is located.
    
30. C
    
31. C STRING : Input string
    
32. C
    
33.       CHARACTER*80 STRING
    
34. C
    
35.       LOC = 1
    
36.   100 CONTINUE
    
37.       IF (STRING(LOC:LOC) .EQ. ' ') THEN
    
38.          GO TO 200
    
39.       ENDIF
    
40.       LOC = LOC + 1
    
41.       IF (LOC .GT. 80) THEN
    
42.          GO TO 200
    
43.       ENDIF
    
44.       GO TO 100
    
45. C
    
46. C Found space or end of string
    
47. C
    
48.   200 CONTINUE
    
49.       ICHLNG = LOC - 1
    
50. C
    
51.       RETURN
    
52.       END
    

复制代码

[ 本帖最后由 苍山负雪 于 2006-5-8 09:22 编辑 ]

sunyuyong99

非常感谢！成功了！