VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

>        kakunou = Mid("fail1.fl", 1, 2)
  なぜ、この書き方で読めると思ったのでしょうか？
  何を参考にしましたか？
  Midで読めると書いてありましたか？
  自分の思い込みだったと思いませんか？
  Helpを見てみましょう。
  キーワードを「ファイル」「データ」などにしてHelpを
  探してみましょう。
  また、過去ログにもファイルを扱った質問はあります。
  参考にできるものがあるはずです。

> ファイルを開いて中のデータをみたいのですが、
> どうしてもうまくできません。 
>        Open "fail1.fl" For Random As #1
>        kakunou = Mid("fail1.fl", 1, 2)
> と、プログラムを組んであってファイル内に、
>        AA1111123456789123451
> と、入っているのですが、どうしてもAAが取り出せません。
> このプログラムでは取り出せないのでしょうか？
> 教えてください。

なんとなく、MidとOpenのヘルプを読めばすんなり解決してしまうような気がしてならないの
ですが、超初心者掲示板なのでお応えしますと、ズバリMidの使い方が間違いかと...

使用法
Mid(string, start[, length])
string 必ず指定します。文字列を取り出す、元の文字列式を指定します。
名前付き引数 string にNull 値が含まれている場合は、Null 値を返します。 

とあります、ようするに kakunou = Mid("fail1.fl", 1, 2) だと、[fail1.fl]という文字列
の１文字目から２文字取って来いという事になります。

それと、ファイルの内容から察するにRandomで開く必要性はあるのでしょうか？
まぁ、あるとしても「開いているだけ」なので、読み込みは行われてません。
Openしたファイルは何かしらの変数なりに読み込む必要があります。

んで、俺ならこうやるで回答しますと

ファイル名[file_data.dat]
AA1111123456789123451


Dim A as string
Dim Ans As String

open "file_data.dat" for input as #1
input #1,A

Ans = mid(A,1,2)

close #1

こんなとこでしょうか？

匿名様

すいませんでした。
これからはもう少し調べてから書き込みをしたいと思います。


> >        kakunou = Mid("fail1.fl", 1, 2)
>   なぜ、この書き方で読めると思ったのでしょうか？
>   何を参考にしましたか？
>   Midで読めると書いてありましたか？
>   自分の思い込みだったと思いませんか？
>   Helpを見てみましょう。
>   キーワードを「ファイル」「データ」などにしてHelpを
>   探してみましょう。
>   また、過去ログにもファイルを扱った質問はあります。
>   参考にできるものがあるはずです。

WAL様

ありがとうございました。返信を見てからソースを直してみました。
Midではいきなりファイルの中は見れないんですね。
もう少しちゃんと調べて、覚えていきます。


> > ファイルを開いて中のデータをみたいのですが、
> > どうしてもうまくできません。 
> >        Open "fail1.fl" For Random As #1
> >        kakunou = Mid("fail1.fl", 1, 2)
> > と、プログラムを組んであってファイル内に、
> >        AA1111123456789123451
> > と、入っているのですが、どうしてもAAが取り出せません。
> > このプログラムでは取り出せないのでしょうか？
> > 教えてください。
> 
> なんとなく、MidとOpenのヘルプを読めばすんなり解決してしまうような気がしてならないの
> ですが、超初心者掲示板なのでお応えしますと、ズバリMidの使い方が間違いかと...
> 
> 使用法
> Mid(string, start[, length])
> string 必ず指定します。文字列を取り出す、元の文字列式を指定します。
> 名前付き引数 string にNull 値が含まれている場合は、Null 値を返します。 
> 
> とあります、ようするに kakunou = Mid("fail1.fl", 1, 2) だと、[fail1.fl]という文字列
> の１文字目から２文字取って来いという事になります。
> 
> それと、ファイルの内容から察するにRandomで開く必要性はあるのでしょうか？
> まぁ、あるとしても「開いているだけ」なので、読み込みは行われてません。
> Openしたファイルは何かしらの変数なりに読み込む必要があります。
> 
> んで、俺ならこうやるで回答しますと
> 
> ファイル名[file_data.dat]
> AA1111123456789123451
> 
> 
> Dim A as string
> Dim Ans As String
> 
> open "file_data.dat" for input as #1
> input #1,A
> 
> Ans = mid(A,1,2)
> 
> close #1
> 
> こんなとこでしょうか？